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ABSTRACT 


The  Computer  Aided  Prototyping  System  (CAPS)  software  base  contains  software 
components  described  by  formal  specifications  written  in  the  Prototype  System 
Description  Language  (PSDL).  One  problem  addressed  by  this  thesis  is  to  develop  a 
retrieval  mechanism  for  extracting  components  that  match  user-provided  PSDL 
specifications.  Another  problem  addressed  is  the  integration  of  a  retrieved  component  into 
a  software  prototype. 

The  approach  taken  was  to  match  specifications  by  comparing  operations  and 
parameter  types  to  include  indirect  subtype  relations.  Integrating  a  selected  software  base 
component  required  generating  mappings  to  account  for  different  operation  and  parameter 
orderings  and,  for  generic  components,  automatic  instantiation. 

The  result  was  a  tool  which  implements  automated  assistance  for  finding  reusable 
components  in  a  large  software  repository.  Methods  were  developed  for  parameter  and 
operator  mapping,  parameter  type  matching,  and  ensuring  instantiation  of  a  generic  was 
possible.  Upon  receipt  of  a  PSDL  specification  query,  these  methods  are  employed  to 
automate  the  retrieval  of  all  matching  components  and  the  integration  of  the  selected 
component  into  the  software  prototype.  This  has  been  fully  implemented  for  operator 
components  and  partially  implemented  for  type  components.  The  retrieval  mechanism,  a 
potential  processing  bottleneck,  is  extremely  accurate  and  reasonably  fast.  A  query  on  a 
1,000  component  repository  retrieved  all  50  possible  matches  in  under  3  minutes. 
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I.  INTRODUCTION 


The  goal  of  this  thesis  is  to  develop  a  software  reuse  tool  that  can  serve  as  one  of 
the  building  blocks  of  a  rapid  prototyping  environntcnL  The  reasons  why  such  a  tool  is 
desirable,  the  concept  of  rapid  prototyping,  and  an  on-going  rapid  prototyping  research 
project  at  the  Naval  Postgraduate  School  are  all  discussed  in  this  section. 

Section  II  discusses  the  field  of  software  reuse  to  include  pertinent  issues,  retrieval 
techniques,  and  a  comparison  of  two  principal  strategies  for  implementing  reuse. 

Section  HI  describes  the  software  reuse  model,  developed  during  prior  research,  that 
serves  as  the  basis  for  this  thesis. 

Section  IV  describes  a  new  model  for  software  reuse  within  a  rapid  prototyping 
environment  and  discusses  both  the  logical  extension  of  the  original  model  as  well  as  the 
implementation-based  changes  made  to  the  original  software  reuse  model  so  that  an 
accurate  trace  of  system  evolvement  can  be  achieved. 

Section  V  discusses  the  transformation  of  a  software  component  selected  for  reuse 
into  a  component  that  is  compatible  with  the  rapid  prototyping  tool. 

Section  VI  discusses  the  graphical  user  interface  for  the  software  reuse  tool  that 
allows  software  components  to  be  searched,  examined  and  selected. 

Section  VII  provides  concluding  remarks  about  the  utility  of  the  new  software  reuse 
model  and  tool  along  with  recommendations  for  improvements  and  related  areas  for 
future  research. 

A.  THE  SOFTWARE  CRISIS 

For  over  a  decade  now  the  term  "software  crisis"  has  been  used  to  define  the  current 
status  of  software  development  practices.  While  an  ever  increasing  backlog  of  requests 
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for  new  software  can  be  considered  a  part  of  the  crisis,  it  is  just  one  of  the  symptoms  of 
the  underlying  problem.  Far  more  important  is  the  fact  that  improvements  made  in  the 
areas  of  software  quality  and  productivity  do  not  come  close  to  matching  the  increased 
complexity  of  today's  software  requirements.  This  is  truly  the  essence  of  our  software 
crisis. 

Here  is  a  summary  of  costs  versus  utilization  of  nine  Department  of  Defense 
software  development  contracts  worth  $6.8  million.  It  is  an  excellent  example  that 
illustrates  the  extent  to  which  today's  software  engineering  practices  fail  to  manage  the 
development  of  complex  systems:  [FFN91] 

•  Delivered  software  never  used  successfully  ($3.2  million) 

•  Software  paid  for  but  not  delivered  ($1.95  million) 

•  Software  delivered  and  used,  but  requiring  extensive  rework  or  later  abandoned 
because  rework  could  not  be  accomplished  ($1.3  million) 

•  Software  used  as  delivered  ($0. 119  million) 

Grady  Booch  states  that  "It  is  our  human  inability  to  deal  with  complexity  that  lies  at  the 
root  of  the  software  crisis."[Booc87]  This  crisis  is  characterized  by  systems  today  that 
are  delivered  late,  over  cost,  with  low  reliability  and  quality,  and  that  don't  meet  the 
requirements.  Some  of  these  symptoms  are  related  to  software  development  tools.  The 
desire  to  develop  a  new  language  in  accordance  with  software  engineering  principles  was 
the  guiding  force  behind  DoD's  development  of  Ada  from  the  late  1970's  to  the  early 
1980's.  Other  symptoms  are  unrelated  to  technical  concerns  but  rather  identify 
managerial  problems  with  current  software  development  practices.  Meanwhile,  the  DoD 
software  costs  continue  to  rise  from  $3  billion  in  the  early  1970's  to  over  $32  billion  in 
1990.  [Booc87] 
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One  promising  area  to  focus  research  efforts  in  appears  to  be  the  early  stages  of  the 
software  development  life  cycle  model.  These  stages  are  composed  primarily  of  defining 
requirements,  analyzing  those  requirements,  and  developing  specifications  from  the 
resulting  analysis.  This  is  where  the  first  attempt  to  manage  system  complexity  is  made 
and  is  the  focal  point  of  interaction  between  system  users  and  developers.  This  is  also 
the  basis  on  which  all  subsequent  design  and  implementation  decisions  will  take  place. 
As  described  by  Edward  Yourdon,  50%  of  all  errors  are  made  during  the  systems 
analysis  and  the  cost  to  remove  these  errors  account  for  75%  of  the  total  error  removal 
costs  [Your891.  The  reason  these  errors  are  so  costly  is  due  the  ripple-through  effect 
they  have  on  the  rest  of  the  system.  The  later  they  are  caught,  the  greater  the  chance 
that  they  will  have  impacted  other  aspects  of  the  system  that  may  have  to  be  modified. 
Rapid  prototyping  is  a  development  technique  designed  to  find  these  errors  at  the  outset 
of  the  software  development  process. 

B.  RAPID  PROTOTYPING 

Rapid  prototyping  is  a  development  technique  that  attempts  to  alleviate  the 
sequential  rigidity  of  the  classical  waterfall  method  of  software  development.  The 
waterfall  method  is  a  sequential  process  that  moves  forward  one  phase  at  a 
time.[Royc70]  The  phases  consist  of  requirements  definition,  functional  specification, 
design,  implementation,  and  testing.  Errors  made  in  one  phase  are  propagated  forward. 
No  feedback  mechanism  exists  between  phases  and  so  problems  discovered  at  the  end 
require  a  new  start  back  at  the  beginning. 

Rapid  prototyping  attacks  the  inefficiencies  of  the  sequential  waterfall  model  by 
following  a  spiral  model  that  allows  the  different  life  cycle  phases  to  progress  in  a  more 
parallel  fashion.[Boeh87]  Each  phase  is  worked  through  incrementally.  Initially,  the 
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basic  requirements  are  determined,  basic  specifications  are  developed,  a  rough  design  is 
created  and  implemented,  and  some  minor  testing  is  performed.  The  goal  is  not  to  get 
everything  right  the  first  time,  but  to  be  able  to  come  up  with  a  quick  skelettm  of  the 
desired  system  that  can  be  shown  to  the  user.  Here  is  an  model  of  the  prototyping 
process  [Luqi89]: 


Figure  1  >  The  Prototype  Process  Model 
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The  user  looks  at  the  "work  in  progress"  and  communicates  what  is  right  and  wrong. 
Changes  are  made  to  requirements,  specifications,  design  and  implementation  and  then 
the  next  iteration  of  the  "work  in  progress"  is  av^able  for  user  examinadon.  This  is  an 
iterative  process  and  is  designed  to  facilitate  communication  between  developers  and 
users.  By  maintaining  the  involvement  of  all  interested  parties  throughout  each  iteration, 
maximum  participation  is  achieved.  Errors  are  caught  early  and  ambiguities  can  be 
highlighted  and  resolved  via  group  interaction.  The  end  goal  of  this  process  is  not  a 
production  system  (normally).  The  end  goal  is  an  accurate  and  unambiguous  set  of 
requirements  and  specifications  that  form  the  basis  of  the  subsequent  production  system. 
Because  rapid  prototyping  addresses  the  potentially  costly  errors  early  in  the 
development  process,  its  contribution  to  software  development  can  be  significant 

The  more  functionality  that  can  be  incorporated  into  the  prototype,  the  greater  the 
likelihood  that  what  the  user  is  being  shown  is  a  close  approximation  of  the  desired 
system.  However,  the  process  of  generating  functionality  is  normally  labor  intensive 
(coding  the  implementation)  and  is  in  direct  conflict  with  the  prototyping  goal  of  rapid 
turnaround.  One  solution  to  including  more  functionality  into  the  prototype  while  at  the 
same  time  supporting  the  rapid  turnaround  requirement  is  the  concept  of  software  reuse. 
A  broad  definition  of  software  reuse  is  "the  reapplication  of  a  variety  of  kinds  of 
knowledge  about  one  system  to  another  similar  system  in  order  to  reduce  the  effort  of 
development  and  maintenance  of  that  other  system.  "[BP89]  A  simple  example  of 
reusing  code  would  be  a  requirement  that  the  prototype  be  able  to  sort  a  list  of  names. 
Commonly  the  prototype  development  team  would  either  write  a  sort  routine  or  leave 
the  requirement  as  an  unimplemented  stub  in  the  prototype.  If  software  reuse  is 
employed,  a  lilsrary  of  software  components  would  be  accessed,  a  sort  routine  searched 
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for  and,  finally,  integrated  into  the  prototype.  Thus,  software  reuse  appears  to  have 
considerable  potential  as  a  supporting  process  for  rapid  prototyping. 

C.  COMPUTER  AIDED  PROTOTYPING  SYSTEM  (CAPS) 

The  G)niputer  Aided  Prototyping  System  (CAPS)  is  an  ongoing  research  project  in 
the  Software  Engineering  Department  at  the  Naval  Postgraduate  School.  CAPS  is  used 
to  prototype  hard  real-time  systems.  Its  primary  goal  is  to  focus  on  the  requirements, 
qrecification,  and  design  phases  of  the  software  development  life  cycle.  Errors  and 
ambiguities  in  these  phases  are  resolved  during  the  many  iterations  of 
developer/customer  interaction  inherent  in  the  prototyping  methodology.  This  process 
provides  increased  productivity  and  reliability  which  in  turn  lead  to  better  nuiintainability. 

The  ability  to  work  at  a  very  simple  level  is  the  heart  of  the  CAPS  design  model. 
CAPS  is  built  around  the  fact  that  all  computer  programs  can  be  described  or  designed  in 
terms  of  operators  (functions  or  processes)  and  types  (data  streams  or  data  structures) 
[LK88].  Concentrating  on  these  two  simple  but  fundamental  components  provides  us 
with  a  limited  set  of  representations  which  greatly  aids  the  management  of  complexity  in 
large  systems.  The  Prototype  System  Description  Language  (PSDL)  forms  the  basis  for 
the  CAPS  computational  model  [LBY88].  All  specifications  for  the  prototype  are 
written  in  PSDL. 

As  a  prototyping  tool,  CAPS  is  actually  a  set  of  tools  with  a  common  user  interface. 
These  tools  include  a  syntax-directed  editor,  graphics  editor,  design  database,  software 
bai  ,  and  an  execution  support  system  [Luqi89].  This  thesis  focuses  on  the  CAPS 
software  base,  a  library  of  reusable  software  components.  The  expression  "software 
base"  will  be  used  throughout  this  thesis  to  refer  to  both  the  physical  entity  that  serves  as 
a  storage  facility  for  reusable  components  and  the  abstract  concept  of  a  library  of 
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software  components  that  can  be  retrieved  for  reuse.  The  following  figure  i»ovides  an 
overview  of  the  CAPS  tools  [CununOO]]: 
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n.  SOFTWARE  REUSE 


A.  WHAT  IS  REUSE 

System  source  code  is  just  one  of  the  many  deliverables  upon  completion  of  a  large- 
scale  system  development  effort  Requirements  documents,  functional  ^)ecifications, 
architectural  designs,  test  suites  and  designs,  and  many  other  forms  of  docummtation 
and  code  are  also  essential  components  of  a  fully  functional  and  nuuntainaUe  system. 
Reuse,  as  defined  earlier  in  Section  I,  seeks  to  capitalize  on  the  knowledge  and  effort 
represented  by  all  of  these  system  deliverables.  Most  software  under  development  today 
is  not  unique;  that  is,  it  has  already  been  written  in  either  the  exact  sante  or  very  similar 
form.  However,  despite  the  large  chunks  of  commonality  with  already  developed 
systems,  new  requirements  are  written,  new  specifications  and  designs  are  developed, 
and  new  code  is  written.  The  ability  to  reuse  existing  designs  and  code  can  significantly 
enhance  productivity  and  reliability. 

The  greatest  payoff  appears  to  lie  in  the  reuse  of  design  level  information.  \Sfith  the 
growing  research  into  formal  specification  languages,  automatic  code  generation  will 
likely  become  a  reality  within  the  next  decade  or  so  thereby  reducing  the  usefulness  of 
reusing  code.  But  the  design  process  is  another  matter.  As  long  as  humans  are  involved 
with  ccHnmunicating  ideas  and  creating  requirements  for  systems,  having  an  existing  base 
of  design  templates  to  draw  from  will  be  a  great  enhancement  tc  productivity.  [BL91] 

This  thesis  focuses  on  the  reusability  of  code.  De^ite  the  fact  that  design  reuse  will 
ultimately  be  more  important  in  the  long  run,  code  reuse  can  be  of  significant  benefit  in 
support  of  such  techniques  as  rapid  prototyping  in  the  short  run. 
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B.  REUSE  ISSUES 

It  is  interesting  that  implementing  software  reuse  is  not  primarily  a  technical 
challenge.  While  some  aspects  of  reuse  such  as  dficioit  and  effective  con^nent 
retrieval  rely  on  improved  technological  advances,  other  aspects  are  more  managerial  in 
nature.  There  are  several  issues  to  consider  [Hoop89]. 

1.  Design  For  Reuse 

There  is  more  effort  and  thus  more  time  and  cost  involved  in  designing  a 
software  component  so  that  it  can  be  reused  later.  If  systems  are  to  incorporate  future 
reusability,  support  must  come  from  top  management  Incentives  must  be  built  into  the 
development  process  to  motivate  the  program  manager  to  design  with  reuse  in  mind. 

2.  Maintenance  Issues 

Regarding  deliverable  software  to  the  government  some  organization(s)  must  be 
responsible  for  maintaining  a  library  of  reusable  components.  Access  to  the  library  must 
be  provided.  A  question  to  be  resolved  is  whether  the  organization  maintaining  the 
library  should  be  responsible  for  testing  components  before  adding  them  to  the  library. 

3.  Legal  Concerns 

The  question  of  who  should  be  allowed  access  to  government  reusable 
component  libraries  must  be  resolved.  In  addition,  should  library  access  be  provided  as  a 
service  at  a  set  fee?  Should  the  government  assess  a  charge  for  each  retrieved 
component?  Most  importantly,  who  is  liable  if  a  retrieved  component  is  responsible  for  a 
system  failure?  It  could  be  the  government,  the  original  developer  of  the  component,  or 
even  the  component  librarian. 

4.  Contractor  Incentives 

Arguments  can  be  made  on  both  sides  of  this  issue.  A  contractor  could  lose 
money  by  retrieving  reusable  components  from  a  software  library  because  he  would  earn 
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more  money  from  writing  the  code  from  scratch.  On  the  other  hand,  it  can  be  argued 
that  reuse  of  components  should  be  factored  into  the  competitive  (adding  process  for 
government  contracts  and  ultimately  lower  the  overall  cost  to  the  government  The 
solution  probably  lies  in  between  these  two  extremes,  but  it  wiU  be  up  to  the  government 
to  establish  an  environment  conducive  to  contractor  support  of  reuse. 

5.  Component  Retrieval 

The  more  components  a  reuse  library  is  populated  with,  the  greato*  the  likelihood 
that  a  specific  search  will  find  something  usefiil.  Howevo^,  there  is  a  tradeoff.  Even  if  a 
component  is  found  that  exactly  meets  your  requirements,  productivity  will  not  have 
been  enhanced  if  the  search  process  took  longer  than  it  would  have  taken  to  sinply  code 
the  component  by  hand.  There  are  numerous  techniques  to  retrieve  reusable  components 
from  libraries.  These  include  browsing,  keyword  searches,  multi-attribute  searches, 
syntactic  matching,  and  semantic  matching  [Stei91,  McDo91,  Ozdc92]. 

It  is  necessary  for  retrieval  techniques  to  be  fast  and  accurate.  Three  concepts 
applicable  to  retrieval  issues  are  recall,  precision,  and  ranking  [WS88]. 

a.  Recall 

Recall  defines  the  percentage  of  relevant  components  (i.e.,  components  that 
match  what  you  are  searching  for)  that  are  retrieved  from  the  set  of  relevant  components 
available  in  the  reusable  component  library. 

b.  Precision 

Precision  defines  the  percentage  of  retrieved  components  that  are  actually 

relevant 

c.  Ranking 

Ranking  lists  the  retrieved  components  in  order  from  best  to  worst  match. 
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C.  MODELING  BEHAVIOR  VERSUS  CLASSIFICATION 

It  is  useful  to  examine  the  methodology  used  today  for  software  component  retrieval 
and  compare  it  against  the  retrieval  technique  this  thesis  employs. 

1.  Faceted  Classification 

The  reuse  strategy  that  is  the  most  widely  used  and  mature  today  is  that  of 
faceted  classification-lFF^l]  Faceted  classification  is  a  methodology  for  software 
component  retrieval  developed  by  Dr.  Ruben  Prieto-Diaz  in  his  1985  dissratatitm  and  is 
nKxleled  after  techniques  utilized  in  the  lils'aiy  managonort  sciences.  The  goal  with 
faceted  classification  is  to  derive  a  schone  for  grouping  similar  software  components. 
The  classification  scheme  is  developed  by  defining  a  set  of  facets^  or  elemental  classes, 
that  adequately  describe  a  software  component  Examples  of  these  facets  for  a  software 
component  are  Functions  (what  the  component  does).  Objects  (what  type  of  data  the 
component  works  with).  System  Type  (database,  compiler,  etc.)  and  Setting  (business 
domain  it  will  be  used  in).  Within  each  of  these  facets  are  numerous  elements  called 
terms  that  define  the  valid  member  set  of  a  facet  For  example.  Append,  Encode,  Qeate, 
and  Format  are  all  terms  in  the  Function  facet  When  a  software  component  is  stored,  an 
entry  in  a  retrieval  table  is  made  of  the  most  relevant  term  describing  that  component  for 
each  of  the  classification  scheme's  facets.  These  facets  can  be  tailored  to  fit  specific 
problem  domains. 

When  searching  for  a  software  component  a  query  is  made  that  consists  of  a  n- 
tuple  where  n  is  the  number  of  facets  in  the  classification  scheme.  A  term  that  best 
describes  the  desired  component  is  entered  into  the  n-tuple  for  each  facet  Wild  cards 
may  be  used  that  provide  more  flexibility  in  the  kinds  of  components  retrieved.  Wh«i  a 
wild  card  is  used,  no  term  is  given  for  that  particular  facet  The  retrieval  mechanism  then 
retrieves  aU  components  that  have  been  described  in  the  same  manner.  An  evaluation 
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mechanism  provides  assistance  during  retrieval  to  provide  components  that  are  close  to 
the  requested  description  if  no  exact  matches  are  found. 

Customization  of  the  classification  scheme  for  a  particular  problem  domain  is  a 
powerful  feature  of  faceted  classification.  Domain  analysis  is  a  technique  for  defining 
reusable  components  and  grouping  them  common  domain.  [AP91]  It  is  based  on  the 
premise  that  reusability  has  two  basic  cornerstones.  First,  that  problems  and  their 
solutions  are  domain  specific  and,  within  those  domains,  share  common  attributes  and 
environmental  considerations.  Second,  the  effort  required  to  capture  domain  q)ecific 
information  that  defines  and  organizes  reusable  items  is  worthwhile  because  we  are 
assured  of  seeing  the  same  types  of  problems  many  times  in  the  future.  In  conjunction 
with  domain  analysis,  faceted  classification  appears  to  be  well  suited  for  fixed  domain 
software  reuse. 

The  Department  of  Defense  is  heavily  involved  in  establishing  reuse  libraries  to 
boost  software  development  quality,  productivity  and  timeliness.  Many  of  the  more 
prominent  libraries  established  to  date  such  as  the  Asset  Source  for  Software 
Engineering  Technology  (ASSET)  and  the  Defense  Software  Repository  System 
(DSRS)  employ  faceted  classification  and  are  attempting  to  utilize  domain  analysis  to 
further  specify  their  libraries.  [Endo92]  Commercial  reuse  library  tools  such  as  the 
Reusable  Software  Library  and  In(^isix  also  use  a  software  classification  approach  for 
component  retrieval  [SPS93,  BABKMS?].  DSRS  has  over  2,000  components  in  its 
software  library.  Many  of  these  were  from  the  Army’s  Reusable  Ada  Products  for 
Information  Systems  Development  (RAPID)  reuse  library.  Retrieving  components  from 
DSRS  across  the  Internet  in  early  1993  proved  to  be  cumbersome.  The  selection  of 
facets  was  very  slow.  However,  it  is  likely  that  these  are  interface  problems  that  have 
been  or  will  be  easily  cleared  up.  The  ASSET  repository  has  142  resources  consisting  of 
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over  1,500  files  [MM91].  Attempts  to  retrieve  components  firom  ASSET  over  the 
Internet  in  early  1993  went  smoothly. 

While  faceted  classification  offers  advantages  over  a  single  keyword  search 
mechanism  due  to  a  more  rigorous  and  uniform  component  definition  mandated  the 
classification  scheme,  it  is  still  restricted  to  forcing  the  description  of  a  component  within 
a  limited  set  of  facets  and  terms.  Ultimately  what  we  would  like  is  to  be  able  to  describe 
the  behavior  of  a  component  and  retrieve  similar  components  on  that  basis. 

2.  Modeling  Behavior 

A  modeling  language  is  needed  to  define  a  wide  class  of  models  in  a  uniform 
manner.  One  critical  aspect  that  this  language  would  address  should  be  component 
behavior.  Attempts  to  create  a  behavioral  model  have  focused  on  two  levels.  At  the 
simpler  level  is  syntactic  behavior  modeling  that  attempts  to  characterize  a  program's 
behavior  in  terms  of  its  interface  or  number  and  types  of  input  and  output  parameters 
[McDo91,  SLB92].  The  composition  of  input  and  output  parameters  form  a  "program 
signature"  that  partially  characterizes  the  component's  public  behavior.  That  is,  behavior 
that  is  made  observable  to  the  rest  of  the  world  in  the  program  specification.  The 
complexity  of  modeling  syntactic  behavior  is  greatly  increased  when  the  recognition  of 
not  only  the  number  of  input  and  output  parameters,  but  their  types  as  well,  becomes  a 
part  of  the  behavioral  model.  Scanty  literature  is  available  on  this  subject  While  the 
use  of  types  as  search  keys  for  component  retrieval  has  been  described,  those 
descriptions  have  been  restricted  to  the  field  of  functional  programming  [Ritt89,  RT89]. 
Adding  type  information  to  the  behavioral  model  introduces  certain  concerns  q)ecific  to 
Ada.  Ada  packages  whose  parameters  could  be  user  defined  types  or  even  generics  must 
be  considered.  In  addition,  subtype  relations  must  be  considered.  Parameter  types  may 
not  match  exactly  but  can  still  logically  map  to  an  ancestor  or  descendant  type  in  the  Ada 
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type  hierarchy,  depending  on  whether  you  are  working  with  input  or  output  parameters 
respectively.  For  example,  a  query  component  input  parameter  of  type  Positive  is 
compatible  with  and  therefore  matches  its  ancestor  type  Integer  in  the  software  base 
component.  Thus,  the  process  of  encoding  behavior  into  a  signature  that  will  be 
recognized  and  selected  when  an  equivalent  but  inexact  behavior  is  described  has  many 
intricacies. 

The  second  and  more  complex  level  of  behavioral  modeling  is  semantic 
behavioral  modeling.  This  is  an  attempt  to  characterize  the  implementation  of  the 
program  in  addition  to  its  interface.  A  dissertation  by  Robert  Steigerwald  discusses 
semantic  matching  [Stei91].  The  two  different  forms  of  behavioral  modeling  are  most 
effective  when  used  in  combination.  The  simpler,  and  more  importantly,  syntactic 
matching  serves  as  an  initial  filter  eliminating  all  components  that  are  not  compatible 
with  the  specified  input/output  behavior.  The  subsequent  reduced  set  of  components  is 
then  passed  on  to  the  semantic  matching  algorithm  which  attempts  to  match  and  rank  the 
correct  component(s).  If  multiple  components  remain,  the  designer  can  browse  through 
them  to  determine  which,  if  any,  will  best  satisfy  his  or  her  needs. 

3.  Comparing  Syntactic  Behavior  and  Faceted  Classification 

After  examining  two  methods  for  component  retrieval,  faceted  classification  and 
behavioral  modeling,  the  natural  question  is  which  technique  is  better.  While  concerns 
about  efficiency  are  always  important,  the  issues  of  precision  and  recall  are  even  more  so 
and  in  that  context  the  two  methodologies  can  be  contrasted.  We  will  use  syntactic 
matching  as  the  tool  with  which  to  consider  behavioral  modeling. 

The  appeal  of  faceted  classification  is  that  it  casts  a  fairly  wide  net  and  is  CCTtain 
to  retrieve  components  that  are  at  least  conceptually  similar  to  the  component  being 
searched  for.  Because  numerous  facets  can  be  ranployed,  the  component  library  is 
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substantially  reduced  on  the  first  pass  and  may  be  judiciously  reduced  subsequent 
narrowing  of  scope  (few  or  no  wild  cards).  Faceted  classification  also  provides  tools  for 
measuring  and  defining  "closeness"  so  that  a  search  can  be  expanded  if  the  qualifying 
facet  terms  prove  too  narrow  [PF87].  Looking  at  the  other  alternative,  the  issue  of 
"casting  a  wide  net"  is  an  area  in  which  syntactic  matching  has  to  be  very  careful.  It  is  at 
its  best  when  retrieving  an  exact  match;  that  is  the  input/output  parameters  of  the 
retrieved  component(s)  exactly  match  the  input/output  parameters  of  the  query 
component.  However,  as  most  reuse  literature  suggests,  the  predominant  results  of 
component  retrieval  will  be  inexact  matches  with  necessary  modifications  subsequent  to 
the  retrieval.  In  this  more  likely  scenario,  syntactic  matching  looking  for  exact  matches 
is  very  unforgiving  and  will  likely  exclude  valuable  components  that  match  closely  but 
not  exactly  with  the  query  component.  Therefore  the  design  of  the  syntactic  matching 
algorithm  must  be  somewhat  forgiving  if  it  is  to  be  effective.  Despite  these  concerns, 
syntactic  matching  has  benefits  not  found  in  faceted  classification.  One  advantage  of 
syntactic  matching  is  that  because  it  more  closely  models  behavior,  it  is  possible  to  locate 
reuse  components  whose  behavior  is  analogous  to  the  query  component  yet  may  not  fall 
into  the  general  conceptual/categorical  context  of  the  query  component  [MS92].  This  is 
a  case  where  a  valid  component  would  not  have  been  retrieved  through  faceted 
classification.  Because  prototyping  can  often  be  used  to  explore  new  domains  that  do 
not  have  well  developed  domain  models,  cross-domain  reuse  is  important  in  such  a 
context.  So  in  the  category  of  recall,  syntactic  behavior  retrieves  more  of  the  existing 
relevant  components. 

Neither  faceted  classification  nor  syntactic  matching  can  do  much  to  improve 
precision,  the  percentage  of  retrieved  components  that  are  actually  relevant.  However, 
syntactic  matching  has  a  big  advantage  here  as  well  because  it  is  only  the  first  filter  in  the 
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behavioral  model  designed  to  weed  out  components  that  do  not  match  and  then  pass  the 
remaining  candidates  on  to  a  semantic  fUta*  which,  by  its  very  nature,  will  improve  the 
final  retrieval  precision.  Thus,  while  behavior  is  harder  to  nnxlel,  it  is  inhenmtly  more 
powerful. 

This  thesis  builds  on  prior  research  to  utilize  the  robust  behavioral  nwdel  for 
retrieving  reuse  components,  providing  important  advantages  over  the  reuse  technology 
dominating  the  field  today  [McDo91].  These  advantages  are  in  the  following  areas: 

•  component  retrieval  recall 

•  component  retrieval  precision 

High  recall  is  ensured  by  the  syntactic  matching  techniques  described  in  this  thesis.  A 
high  level  of  precision  is  realized  through  subsequent  semantic  filtering  [Stei91]. 
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ra.  CAPS  SOFTWARE  BASE 


Initial  implementation  of  the  CAPS  software  base  was  first  explored  in  a  diesis  by 
Daniel  Galik  [GaliSS].  Actual  implementation  of  the  software  base  was  accomplished  by 
John  McDowell  [McDo91].  McDowell's  implementation  uses  ONTOS,  an  object 
oriented  data  base  management  system  that  provides  an  interface  to  C-h-  for 
customization  and  flexibility.  [Onto91]  Good  descriptions  of  the  CAPS  software  base 
are  provided  by  both  McDowell  and  Ozdemir  [McDo91,  Ozde92].  As  a  repository  for 
reusable  software  components,  the  CAPS  software  base  supports  two  critical  functions; 
component  storage  and  component  retrieval. 

A.  COMPONENT  STORAGE 

Each  software  component  to  be  stored  in  the  CAPS  software  base  must  have  a 
Prototype  System  Description  Language  (PSDL)  file.[LBY88]  The  PSDL  file  provides 
information  about  the  software  component  that  is  used  to  determine  how  the  component 
is  stored.  Although  a  PSDL  file  contains  information  about  a  variety  of  attributes  of  a 
real-time  software  component,  we  will  only  be  concerned  with  the  attributes  that  relate 
direcdy  to  the  component  retrieval  mechanism  developed  by  McDowell  and  extended  in 
this  thesis. 

1.  Relevant  PSDL  Attributes 

A  software  component  is  stored  on  the  basis  of  its  signature  or  interface  to  the 
outside  world.  The  PSDL  attributes  that  comprise  this  interface  include  the  generic, 
input,  and  output  parameters  of  the  component  as  well  as  whether  or  not  it  is  a  state 
machine.  The  role  of  the  component,  type  (abstract  data  type)  or  operator  (procedure), 
is  also  considered  as  part  of  the  interface  for  storage  purposes.  All  these  PSDL 
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attributes  can  be  combined  to  form  a  multi-attribute  key  that  uniquely  idaidfies  all 
components  that  share  a  given  set  of  attribute  values  [SLM91].  The  following  simple 
example  shows  an  Ada  package  specification  and  its  corresponding  PSDL  specification 


Ada  Package  Specification: 

package  Example_Pkg  is 

procediue  Example  (Numl  :  in 

Integer; 

Num2  :  in 

Integer; 

Result : 

out  Integer); 

end  Example_Pkg; 

PSDL  Specification: 

OPERATOR  Example 

SPECJHCATION 

INPUT  Numl  :  Integer, 

Num2  :  Integer 

OUTPUT  Result :  Integer 

KEYWORDS  example,  add 

END 

Figure  3  -  Ada  Package  Specification  with  Corresponding  PSDL 

Specification 

Note  that  the  keywords  attribute  is  also  listed  in  Figure  3.  Keywords  are  used  in  one 


form  of  component  retrieval  and  will  be  described  shortly. 
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2.  Storing  a  Component 

The  first  determination  of  how  a  component  is  stored  is  dependent  on  whether 
the  component  is  a  type  or  an  operator.  References  to  types  are  stored  in  an  ONTOS 
class  called  the  SB_ADT_Component_Library  and  references  to  operators  are  stored  in 
the  SB_Operator_Component_Library.  To  illustrate  the  component  storage  process,  we 
will  concentrate  on  the  storage  of  operators.  Storage  of  both  types  and  operators  is 
described  in  detail  by  McDowell  [McDo91]. 

The  principal  storage  structure  for  all  components  is  the  ONTOS  Dictionary 
class.  A  Dictionary  is  an  object  that  stores  key-element  data  pairs.  The  key  can  be  used 
to  order  and  retrieve  the  data  in  the  dictionary.  The  element  normally  represents  the 
specific  data  entity  to  be  stored.  Because  ONTOS  is  built  around  an  object  oriented 
environment,  the  element  is  often  an  object.  Figure  4  below  provides  a  conceptual 
representation  for  how  operators  are  stored  in  the  CAPS  software  base.  It  has  been 
reduced  firom  its  actual  scope  to  simplify  the  explanation  [McDo91]: 
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Regular  ellipses  represent  objects.  Shadowed  ellipses  represent  Dictionary  objects. 
Rectangles  represent  Dictionary  keys.  Figure  4  depicts  a  storage  hierarchy  of  objects. 
All  objects  are  only  stored  once  in  a  distinct  physical  location.  References  to  those 
objects  can  then  be  stored  within  other  objects.  That  is  the  role  served  by  the  above 
dictionaries.  Their  elements  are  actually  references  to  other  objects.  When  the  operator 
software  component  Example  from  Figure  3  is  stored  in  the  CAPS  software  base,  its 
PSDL  specification  is  first  parsed  for  information  that  will  be  stored  to  help  aid 
subsequent  retrieval  requests.  Because  it  is  an  operator,  we  start  in  the 
Operator_Component_Library.  A  reference  to  Example  is  placed  in  Component 
Dictionary!.  This  is  used  to  provide  quick  access  to  a  list  of  aU  the  software  base 
operator  components  which  ctui  then  be  used  to  browse  through  the  software  base. 
Next,  because  there  is  no  state  information  for  Example  we  move  to  the  Non-State 
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Dictionary.  Example  has  two  input  parameters,  so  we  now  move  to  the  Output 
Dictionary2  object  that  corresponds  to  the  key  value  2  for  the  Non-State  Dicticmary. 
Example  has  one  output  parameter.  In  the  Output  Dictionary2  element,  Con^nent 
Dictionary3,  that  corresponds  to  a  key  value  of  1,  we  store  a  reference  to  the  software 
component  Example.  Thus,  with  the  information  about  its  state,  numbo*  of  input 
parameters,  and  number  of  output  parameters,  a  reference  to  Exan^le  has  been  stored  in 
a  complex  data  hierarchy  that  will  allow  us  to  retrieve  it  by  submitting  the  correct 
information  in  the  form  of  a  multi-attribute  key  [SLM91]. 

B.  COMPONENT  RETRIEVAL 

Retrieving  software  components  is  an  important  part  of  the  reuse  process.  There 
are  currently  three  methods  available  to  perform  component  retrieval  from  the  CAPS 
software  base.  They  are  browsing,  keyword  query,  and  PSDL  query. 

1.  Browsing  Through  the  Software  Base 

Browsing  through  the  CAPS  software  base  is  a  very  simple  process.  The  user 
selects  either  the  type  or  operator  domain,  and  then  a  listing  of  all  available  components 
in  the  chosen  domain  is  displayed.  The  user  can  skim  through  that  list  and  select 
individual  components  for  more  detailed  examination. 

2.  Keyword  Query 

For  this  retrieval  mechanism,  the  user  selects  one  or  more  keywords  fr'om  a  list  of 
all  keywords  currently  used  in  software  components  in  the  CAPS  software  base.  An 
ONTOS  Dictionary  object  called  Keyword_Dictionary  is  then  scaimed.  Its  keys  are  the 
keywords  and  its  elements  are  Component_Dictionary  objects  similar  to  the  ones 
described  in  Figure  4  above.  Each  keyword  maps  to  a  Dictionary  object  that  contains 
references  to  aU  components  with  that  particular  keyword  in  their  PSDL  q)ecifrcation. 
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Whoi  the  scan  is  conplete,  the  user  is  presented  with  all  components  that  have  at  least 
one  of  the  user's  selected  keywords.  The  components  are  listed  in  descending  order  with 
the  components  that  have  matched  the  nwst  user  keywords  listed  at  die  top. 

3.  PSDL  Query 

A  PSDL  query  requires  the  user  to  provide  a  PSDL  qiedfication  as  the  query.  This 
qieciilcation  is  dien  compared  against  the  PSDL  specifications  of  the  componoits  in  die 
CAPS  software  base  to  see  if  any  are  a  valid  match.  Rather  than  having  to  compare  the 
query  against  each  software  base  component,  the  hierarchical  methodology  for  storing 
information  about  the  software  base  components  serves  as  a  very  efficient  filtn  for 
retrieving  only  the  matching  components  [McDo91].  Using  Figure  4  as  an  exan^le, 
suppose  we  have  a  PSDL  query  specification  that  has  two  input  parameters,  two  output 
parameters  and  no  states.  The  retrieval  mechanism,  woridng  from  the  information 
parsed  from  the  PSDL  query,  immediately  eliminates  all  components  stored  within  the 
State_Dictionary.  Next,  the  dictionary  of  components  with  two  input  parameters  is 
extracted,  eliminating  all  components  with  less  than  or  more  than  two  input  parameters. 
FinaUy,  a  set  of  Component_Dictionary3  dictionaries  is  extracted.  Each 
Component_Dictionary3  in  the  set  contains  all  components  with  two  (or  three,  or  four, 
etc.)  output  parameters  (and  by  the  path  of  extraction,  two  input  parameters  and  no  state 
variables).  This  group  of  components  is  then  presented  to  the  user  as  all  the  valid 
matches  for  the  particular  PSDL  query.  The  reason  we  might  have  more  than  one 
Coni|>onent_Dictionary3  extracted  is  that  a  software  base  component  with  a  greater  or 
equal  number  of  output  parameters  than  a  query  component  is  considered  to  match  the 
query  component  as  long  as  both  components  have  the  same  state  and  same  number  of 
input  parameters. 
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rV.  EXTENDING  SYNTACTIC  MATCHING 


A  PSDL  specification  defines  the  public  view  or  interface  of  a  software  con^nent 
while  the  actual  implementation  remains  hidden.  Syntactic  matching  is  the  process  of 
comparing  a  query  component's  PSDL  specification  with  a  software  base  component's 
PSDL  specification  to  determine  if  tiieir  interfaces  are  similar.  Any  component  that 
satisfies  a  given  specification  must  have  a  compatible  intafar«,  so  we  can  quickly 
exclude  from  consideration  all  the  components  that  do  not  meet  this  criterion.  The 
syntactic  matching  process  used  in  t^iic  thesis  is  an  extension  of  the  process  used  in  a 
thesis  by  John  McDowell.[McDo91]  V  'iDowell  developed  a  theoretical  formalization  of 
syntactic  matching  that  includes  the  component  input  and  output  parameter  types.  He 
also  implemented  a  matrix  scheme  that  provided  a  storage  structure  to  address  the 
matching  of  subtypes.  However,  McDowell's  in^lemented  syntactic  matching  process 
did  not  include  matching  parameter  types.  In  this  thesis  we  extend  McDowell's 
theoretical  formalization  of  syntactic  matching  to  include  subtypes.  And  where 
McDowell's  implementation  used  multi-attribute  keys  that  were  limited  to  matching 
components  based  on  attributes  such  as  numbers  of  generic,  input,  and  output 
parameters  or  number  of  operators  (within  an  abstract  data  type)  of  a  PSDL 
specification,  here  we  extend  McDowell's  implementation  by  including  the  type  of  the 
parameters  in  the  match  procedure. 

The  goal  of  syntactic  matching  is  to  provide  a  fast  method  for  selecting  a  subset  of 
components  from  the  software  base  that  have  a  likelihood  of  providing  the  behavior 
required  by  the  query  component.  This  retrieved  subset  of  candidate  solutions  to  the 
query  will  then  be  passed  to  a  semantic  matching  process.  Semantic  matching  explores 
both  the  external  and  internal  behavior  of  a  component  utilizing  normalized  algebraic 
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q>ecifications  [Stei91].  Thus  the  critical  role  syntactic  matching  plays  is  to  shrink  the  list 
of  candidate  components  in  a  very  quick  manner  which  can  then  be  examined  via  dte 
rigorous  and  consequently  much  slower  semantic  matching  process.  The  power  of 
syntactic  matching  is  its  ability  to  execute  the  match  process  nq)idly  with  a  high  degree 
of  recall.  Semantic  matching,  on  the  other  hand,  matches  much  more  slowly  but  with 
high  precision.[SLB92] 

The  following  guidelines  describe  aspects  of  the  syntactic  matching  process  for  both 
PSDL  operators  and  types.  The  matching  process  takes  a  PSDL  specification  siq^lied 
by  the  CAPS  prototype  designer  and  retrieves  all  software  components  horn  the 
software  base  that  have  a  similarly  defined  PSDL  specification.  The  expression 
"similarly  defined"  will  be  described  formally  along  with  the  description  of  the  matching 
process  below. 

A.  DEFINITIONS 

Before  describing  the  syntactic  matching  process  it  is  necessary  to  define  all  the 
terms  and  notation  used  in  the  process. 

1.  PSDL  Specification 

The  PSDL  specification  for  a  component  is  denoted  by  PS. 

2.  Software  Base  Component 

The  software  base  component  is  denoted  by  sbc.  The  PSDL  specification  of  a 
reusable  software  component  stored  in  the  software  base  would  therefore  denoted  by 
PS(sbc). 
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3.  Query  Component 

A  query  component  refers  to  the  component  that  the  CAPS  prototype  designer  is 
in  the  process  of  finding  a  software  base  match  of  and  is  denoted  ty  qc.  The  PSDL 
specification  for  that  query  component  would  therefore  be  denoted  by  PS(qc). 

4.  Component  Signature 

The  component  signature  refers  to  the  types  of  the  component  parameters. 
There  is  a  separate  signature  for  input  and  output  parameters.  A  signature  is  encoded 
with  information  that  describes  each  instance  of  all  Ada  types  used  by  a  component  For 
example,  if  an  operator  component  has  two  input  parameters  of  type  Integer,  an  input 
parameter  of  type  Boolean,  and  an  input  parameter  of  type  Range,  tiien  the  input 
signature  for  that  operator  would  be  encoded  with  two  instances  of  Integer,  one  instance 
of  Boolean,  and  one  instance  of  Range.  Signatures  for  types  are  treated  a  little 
differendy  and  reflect  the  parameter  type  information  contained  in  the  aggregation  of  aU 
the  abstract  data  type's  operators.  So,  for  example,  let  us  take  a  type  that  has  two 
operators,  type_opcratorl  and  typc_operator2.  Type_operatorl  has  one  Boolean  input 
parameter  and  one  Integer  input  parameter.  Type_operator2  has  one  Integer  input 
parameter.  The  input  signature  for  this  type  would  therefore  be  encoded  with  two 
instances  of  Integer  and  one  instance  of  Boolean,  reflecting  the  aggregation  of  the  input 
parameters  of  the  abstract  data  type's  operators. 

a.  Parameter  Types 

Parameter  types  are  easy  to  match  if,  for  example,  an  input  PS(qc)  parameter 
is  exacdy  the  same  type  as  an  input  PS(sbc)  parameter.  However,  just  because  the 
parameter  types  do  not  match  exacdy  does  not  mean  they  do  not  match.  Because  Ada 
employs  a  well-defined  type  hierarchy  that  is  based  on  inheritance  and  subtyping,  in  some 
cases  parameters  of  what  appear  to  be  different  types  can  be  matched.  [Booc87]  It  is 


25 


also  posable  to  include  a  parameter  type  in  a  specification  that  is  not  predefined  by  Ada. 
This  is  called  a  user  d^ned  type  (UDT).  A  UDT  must  be  defined  as  a  type  in  the 
specification  of  the  prototype  if  it  is  to  be  referenced  by  another  type  or  operator.  The 
UDT  specification  provides  a  critical  link  in  the  parameter  type  matching  process  by 
including  a  reference  to  the  Ada  type  that  ttefines  the  UDT.  An  exanq)le  of  this  can  be 
examined  in  Appendix  A. 

The  types  Private,  Discrete,  Array,  Digits,  Delta,  Range,  and  Access  can 
appear  in  specifications  of  generic  parameters  for  generic  Ada  components.  [Ada83]  The 
types  Private,  Discrete,  Integer,  Range,  Natural,  Positive,  Enumeration,  Character, 
Boolean,  Access,  Record,  Array,  String,  Digits,  Float,  Delta,  and  Fixed  are  predefined 
types  in  Ada.  The  following  figure  depicts  a  partial  ordering  of  the  Ada  type  hierarchy: 
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Partial  Ordering  of  Ada  Types 


PRIVATE 


RECORD  ACCESS  DISCRETE  DIGITS  DELTA  ARRAY 


ENUMERATION  INTEGER  FLOAT  nXED  STRING 


CHARACTER  BOOLEAN  POSITIVE _ 

Figure  5  -  Ada  Subtype  Hierarchy 

In  Figure  5  we  see  that,  for  example,  an  input  PS(qc)  parameter  of  type  POSITIVE 
could  be  matched  to  an  input  PS(sbc)  parameter  of  type  INTEGER.  It  is  important  to 
note  that  this  mapping  is  only  allowed  in  one  direction.  The  direction  is  dependent  on 
whether  you  are  working  with  input  or  output  parameters.  We  could  not  take  an  input 
PS(qc)  parameter  of  type  INTEGER  and  match  it  to  an  input  PS(sbc)  parameter  of  type 
POSITIVE.  This  is  because  every  input  value  that  is  consistent  with  the  query 
specification  must  be  a  legal  input  of  the  software  base  component  and  every  output 
value  that  can  be  produced  by  the  software  base  must  be  consistent  vsdth  the  query 
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specification.  Again,  note  that  the  required  subtype  relations  go  in  opposite  directions 
for  input  and  ouq>ut  parameters.  The  type  hierarchy  follows  a  partial  ordoing  schone. 
As  a  partial  ordering,  this  hierarchy  is  by  definition  reflexive,  anti-symmetric,  and 
transitive  [Epp90].  This  type  hierarchy  takes  into  account  all  type  names  that  the 
PS(qc)  can  expect  to  reference.  To  illustrate  type  relationships  within  the  hierarchy, 
suppose  we  have  a  parameter  type  T  and  another  parameter  type  t  such  that  t  is  a 
subtype  of  T.  For  example.  Natural  is  a  subtype  of  Integer.  By  definition  of  a  subtype, 
t  must  be  a  descendant  of  a  T  with  respect  to  Figure  5,  or  t  must  equal  T  [Booc87]. 

b.  Input  Parameters 

Each  input  parameter  has  an  identifier  name  and  a  corresponding  type.  The 
identifier  name  is  represented  by  p.  All  identifiers  in  a  PSDL  specification  must  have 
unique  names.  The  expression  input_type(p,  sbe)  refers  to  the  parameter  type  for  a 
given  input  parameter  p  in  the  component  sbc.  And  input_type(p,  qc)  refers  to  the 
parameter  type  for  a  given  input  parameter  p  in  the  component  qc.  The  expression 
In(sbc)  refers  to  the  entire  set  of  input  parameter  identifier  names  for  a  given  software 
base  component,  and  In(qc)  refers  to  the  entire  set  of  input  parameter  identifier  names 
for  a  given  query  component.  As  an  example,  suppose  we  have  a  query  component  with 
two  Integer  input  parameters  pi  and  p2,  and  one  Boolean  input  parameter  p3.  For  p 
equal  to  pi  or  p2,  input_type(p,  qc)  would  return  Integer.  For  p  equal  to  p3, 
input_type(p,  qc)  would  return  Boolean.  And  In(qc)  would  be  the  set  {pi,  p2,  p3}. 

c.  Output  Parameters 

The  definitions  for  the  output  parameters  are  very  similar  to  the  input 
parameters.  The  expression  output_type(p,  sbc)  refers  to  the  parameter  type  for  a 
given  output  parameter  p  in  the  component  sbc.  And  output_type(p,  qc)  refers  to  the 
parameter  type  for  a  given  output  paran^ter  p  in  the  component  qc.  The  expression 
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Out(sbc)  refers  to  the  entire  set  of  output  parameter  identifier  names  for  a  given 
software  base  component,  and  Out(qc)  refers  to  the  entire  set  of  output  parameter 
identifier  names  for  a  given  query  component 

d.  States 

The  expression  ST(sbc)  is  a  boolean  function  that  evaluates  w’lietha*  the 
software  base  component  is  a  state  machine  or  not.  ST(qc)  performs  the  identical 
function  for  the  query  component 

e.  Abstract  Data  Types 

Abstract  data  types  (types)  have  certain  definitions  that  operators  do  not. 
ADT(sbc)  denotes  the  set  of  all  abstract  data  types  in  a  type  software  base  component 
and  ADT(qc)  denotes  the  set  of  all  abstract  data  types  in  a  type  query  component  An 
abstract  data  type  within  a  type  component  is  a  reference  to  a  distinct  type  name  that 
appears  in  the  type  declaration  pan  of  the  type  component’s  PSDL  specification. 
OPS(sbc)  denotes  the  set  of  all  ADT  operators  in  a  type  software  base  component  and 
OPS(qc)  denotes  the  set  of  all  ADT  operators  in  a  type  query  component.  Because  we 
are  dealing  with  aggregates,  the  expression  Tot_In(sbc)  refers  to  the  entire  set  of  input 
parameter  identifier  names  over  all  operators  of  a  type  software  base  component  and 
Tot_In(qc)  refers  to  the  entire  set  of  input  parameter  identifier  names  over  all  operators 
of  a  type  query  component.  Tot_Out(sbc)  and  Tot_Out(qc)  are  defined  in  the  same 
manner  but  for  ouq)ut  parameters. 

B.  SYNTACTIC  MATCHING  RULES 

The  initial  set  of  syntactic  matching  rules  with  one  modification  are  taken  fi'om 
McDowell's  thesis  and  they  serve  as  the  basic  rule  set  [McDo91].  The  modification 
pertains  to  McDowell's  treatment  of  user  defined  types.  McDowell  called  user  defined 
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types  unrecognized  types  and  created  a  rule  between  software  base  component  generic 
parameters  and  query  component  unrecognized  type  parameters.  However,  this  thesis 
does  not  permit  unrecognized  types  and  forces  all  query  component  parameters  to  be 
defined  as  Ada  types.  That  is  not  to  say  that  a  query  component  parameter  cannot  be 
defined  as  a  user  defined  type.  It  can.  But  ultimately  by  transitivity,  a  referenced  user 
defined  type  must  be  defined  in  terms  of  an  Ada  type  (see  Appendix  A). 

The  basic  set  of  rules  are  used  as  the  first  filter  in  the  syntactic  matching  process. 
TTiese  rules  differ  slightly  between  operators  and  types.  This  thesis  augments  those  rules 
by  including  rules  specific  to  parameter  type  matching.  NUM(X)  is  defined  as  a  function 
that  returns  the  cardinality  of  the  set  represented  by  X. 

1.  Basic  Rules  for  Operators 

Basic  rules  for  operators  are  primarily  concerned  with  comparing  number  of 
parameters  and  are  listed  as  follows  [McDo91]: 

•  NUMan(sbc))  =  NUM(In(qc)) 

•  NUM(Out(sbc))  ^  NUM(Out(qc)) 

•  ST(sbc)  =  ST(qc) 

The  number  of  software  base  component  input  parameters  must  equal  those  of  the  query 
component.  The  number  of  software  base  output  parameters  must  be  equal  to  or  greater 
than  those  of  the  query  components.  And  both  components  must  either  be  state 
machines  or  not  be  state  machines. 

2.  Basic  Rules  for  Types 

A  PSDL  type  consists  of  one  or  more  abstract  data  types  (ADT)  and  zero  or 
more  operators  (OPS).  When  initially  matching  PSDL  types  it  is  useful  to  aggregate 
operator  input  and  output  parameters.  These  aggregate  values  can  be  used  to  compare 
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two  components.  For  example,  a  type  component  with  three  operators  that  each  have 
two  input  parameters  would  have  an  ag^egate  input  parameter  value  of  six  (three 
operators  times  two  input  parameters  each).  If  the  aggregate  values  do  not  meet  the 
inequalities  listed  below  then  we  can  exclude  the  candidate  component  from  any  further 
consideration.  If  the  aggregate  signatures  do  match  we  have  not  confirmed  a  match,  but 
must  continue  the  matching  process  using  more  sophisticated  filters.  The  basic  rules 
for  matching  types  are  as  follows  [McDo91]; 

•  NUM(ADT(sbc))  ^  NUM(ADT(qc)) 

•  NUM(Tot_In(sbc))  >  NUM(Tot_In(qc)) 

•  NUM(Tot_Out(sbc))  >  NUM(Tot_Out(qc)) 

•  NUM(OPS(sbc))  ^  NUM(OPS(qc)) 

The  number  of  ADTs,  operators,  aggregate  operator  input  and  aggregate  operator 
output  parameters  of  the  software  base  component  must  all  be  either  greater  than  or 
equal  to  those  of  the  query  component. 

3.  Extended  Type  Matching  Rules  for  Operators 

The  components  that  pass  the  basic  rules  are  checked  against  the  extended 
matching  rules,  which  are  more  restrictive.  The  extended  matching  process  includes 
comparison  of  parameter  types  between  the  query  and  software  base  components.  The 
extended  rules  for  matching  operators  are  as  follows: 
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•  fTOBgO-i 


3f :  In(qc)  ->  Iii(sbc)  such  that 
[  f  is  bijcctive  a 
Vp  €  &i(qc) 

[  input_type(p,  qc)  is_a_subtypc_of  input_type(f(p),  sbc)  ]  ] 

•  Property  2 

Bf :  Out(qc)  ->  Out(sbc)  such  that 
[  f  is  one-to-one  a 
Vp  €  Out(qc) 

[  output_type(py  qc)  is_a_superQfpe_of  output_type(f(p),  sbc)  ]  ] 

The  first  rule  says  that  a)  each  input  paranieter  of  the  query  component  must  map  to  a 
distinct  input  parameter  in  the  software  base  component  and  vice  versa,  and  b)  for  each 
input  parameter  pair,  the  type  of  the  query  component  input  parameter  must  be  equal  to 
or  a  subtype  of  the  software  base  input  parameter.  Distinct  is  defined  to  mean  that  no 
parameter  in  the  function's  range  can  be  mapped  to  by  more  than  one  parameter  in  the 
fiinction's  domain.  The  second  rule  says  that  a)  each  output  parameter  of  the  query 
component  must  map  to  a  distinct  output  parameter  in  the  software  base  component, 
and  b)  for  each  output  parameter  pair,  the  type  of  the  query  component  output 
parameter  must  be  equal  to  or  a  supertype  of  the  software  base  output  parameter.  The 
second  property  is  not  required  to  be  onto  because  a  software  base  component  operator 
can  have  more  output  parameters  than  the  query  component 
4.  Extended  Type  Matching  Rules  for  Types 

Let  OPqc  denote  a  query  type  component  opo^ator  and  denote  a 

software  base  type  component  operator.  The  extended  rule  for  matching  types  is  as 
follows: 
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•  3f :  OPqc  ->  OPgbc  such  that 
[  f  is  one-to-one  a 
VOPqc€  OPS(qc) 

[  Property  1  and  Property  2  defined  in  Section  rV.B.3 
hold  true  for  each  (OPqc,  f(OPqc))  pair.  ]  ] 

This  rule  states  that  a)  each  operator  in  the  query  type  component  must  map  to  a  distinct 
operator  in  the  software  base  type  component,  and  b)  each  mapped  operator  pair  must 
adhere  to  the  rules  defi  d  in  Sections  IV.B.l  and  rV.B.3. 

C.  A  MECHANISM  FOR  SYNTACTIC  MATCHING 

Now  that  we  have  described  the  rules  for  what  constitutes  a  valid  match,  we  need  a 
mechanism  for  calculating  matches  efficiently.  Because  a  handwritten  signature  uniquely 
identifies  an  individual,  the  term  signature  has  become  synonymous  in  many  domains 
with  the  concept  of  identffication.  A  mechanism  for  generating  signatures  that  represent 
a  software  component's  parameter  composition  provides  a  utility  that  subsequently 
allows  component  matching  to  take  place  by  component  signature  comparison. 

1.  What  Didn't  Work  •  The  Initial  Attempt  at  Developing  a  Mechanism 

Prime  numbers  were  explored  as  the  basis  for  computing  syntactic  signatures 
that  identify  unique  groupings  of  parameters.  Each  PSDL  specification  has  a  separate 
signature  for  its  input  and  output  parameters.  The  goal  was  to  match  PSDL 
specifications  by  comparing  their  signatures. 

The  following  signature  matching  mechanism  was  developed.  All  types  in  the 
Ada  type  hierarchy  of  Figure  5  were  assigned  a  unique  prime  number  and  a 
representative  value.  The  root  type  has  a  unique  prime  number  which  also  serves  as  its 
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representative  value.  The  representative  value  for  each  descendant  type  is  derived  by 
multiplying  the  representative  values  of  its  parent  type  by  its  own  unique  prime  number. 
So,  for  example,  let  us  assign  the  following  unique  prime  numbers  to  types:  Private  =  2 
(root  type).  Discrete  =  3,  and  Enumeration  =  7.  Looking  at  the  Ada  type  hierarchy  in 
Figure  5  we  see  that  Private  is  a  root  type  and  therefore  its  representative  value  2,  equals 
its  unique  prime  number.  The  representative  value  for  Discrete  is  found  by  multiplying 
its  unique  prime  number  (3)  by  the  representative  value  of  its  parent  (Private  =  2)  wltich 
results  in  6  (3  X  2).  Likewise,  the  representative  value  for  Enumeration  is  found  tty 
multiplying  its  unique  prime  number  (S)  by  the  representative  value  of  its  parent 
(Discrete  =  6)  which  results  in  30  (5  x  6).  The  unique  prime  numbers  assigned  to  types 
recognized  by  the  matching  algorithm  and  their  corresponding  representative  values  are 
as  follows: 
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Unique  RenrewentMtive 


PriiM  Ntt. 

private 

2 

2 

discrete 

3 

6 

enumeration 

7 

42 

character 

17 

714 

boolean 

19 

798 

integer 

5 

30 

range 

23 

690 

natural 

11 

330 

positive 

13 

4,290 

digit 

37 

74 

float 

43 

3,182 

delta 

41 

82 

fixed 

47 

3,854 

array 

29 

58 

string 

53 

3074 

record 

31 

62 

access 

59 

118 

Figure  6  •  Type  Prime  Number  Hierarchy 

a.  Signature  Calculation 

A  PSDL  specification  has  separate  signatures  for  its  input 

and  output 

parameters.  A  parameter  signature  is  calculated  by  multiplying  the  representative  values 

given  above  for  all  parameter  types.  For  example. 

a  PSDL  specification  with  input 

parameters  of  type  integer  (30)  and  type  boolean  (798)  would  have  an  input  parameter 
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signature  of  23,940  (30  x  798).  Multiple  occurrences  of  a  type  cause  its  iqnesentative 
value  to  be  used  a  corresponding  number  of  times  in  the  signature  calculation. 
b.  Guaranteeing  the  Uniqueness  of  Signatures 

The  effect  of  this  numbering  schone  is  to  simplify  the  comparison  of  two 
parameter  signatures.  Using  a  unique  integer  value  to  represent  a  parameter  signature 
allows  for  fast  lookup  in  an  ordered  list  in  the  sin^lest  case  of  an  exact  match.  In  the 
more  complicated  case,  a  number  of  potential  matches  might  not  be  exact  but  are 
guaranteed  to  iq)ply  due  to  the  partial  ordoing  of  types.  Therefore,  a  query  component 
trying  to  match  its  input  parameters  of  type  integer  and  boolean  can  successfully  map  to 
a  software  base  component  with  an  input  parameter  X  that  is  an  ancestor  of  integer  in 
the  partially  ordered  Ada  type  hierarchy  and  an  input  parameter  Y  that  is  similarly  an 
ancestor  of  boolean.  If  one  component  parameter  signature  can  divide  into  another 
component  parameter  signature  with  no  remainder,  then  a  signature  match  has  occurred 
(note  that  the  determination  of  which  con^oncnt’s  signature  is  the  dividend  and  which  is 
the  divisor  is  dependent  on  whether  input  parameter  signatures  or  ouq)ut  parameter 
signatures  are  being  matched).  Informally,  this  is  because  the  type  hierarchy  numbering 
scheme  insures  that  the  representative  value  of  any  descendant  is  a  multiple  of  the 
representative  values  of  all  its  ancestors.  The  value  of  a  signature  is  unique.  No  other 
combination  of  parameters  could  result  in  the  same  value.  To  see  why  this  is  so,  let  us 
consider  an  example.  Here  are  the  input  parameters  for  an  operator: 


Parameter  Type 

Rep.  Value 

Prime  Factors 

• 

Character 

714 

{17,7, 3,2} 

• 

Integer 

30 

{5,3,2} 

• 

Natural 

330 

{11.5,  3,2} 
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The  input  signature  for  this  example  would  be  7,068,600  (7 14  x  30  x  330).  What  makes 
its  value  unique  is  the  fact  that  the  representational  values  for  die  parameter  types  are  the 
result  of  prime  factors,  and  each  representational  value  has  its  own  unique  combination 
of  prime  factors.  Thus  each  signature  is  also  a  unique  combination  of  prime  numbers. 
Only  the  exact  same  combination  can  represent  a  signature  with  the  exact  same 
parameters.  The  prime  factors  comprising  a  representational  value  have  been 
deliberately  chosen  to  provide  the  capability  to  perform  subtype  matching.  For  example. 
Integer  is  an  ancestor  of  Natural.  It  is  clear  that  dividing  the  representational  value  of 
Integer  into  the  representational  value  of  Natural  would  result  in  a  zero  remainder.  That 
is  because  Natural  has  the  same  set  of  prime  factors  as  Integer,  in  addition  to  the  i»ime 
factor  11.  This  relationship  was  designed  to  hold  true  for  all  ancestors  arxl  their 
descendants  in  the  Ada  type  hierarchy.  To  further  illustrate  this,  let  us  divide 
input.signaturel  into  input_signature2.  As  long  as  the  parameter  types  in 
input_signaturel  can  be  mapped  by  a  one-to-one  correspondence  with  the  parameter 
types  of  input_signature2  so  that  all  input_signaturel  parameter  types  are  the  same  or  an 
ancestor  of  the  input_signature2  parameter  type  they  are  mapped  to,  then  the  result  of 
the  division  must  be  a  zero  remainder.  Any  mapping  that  did  not  maintain  an  ancestor- 
descendant  or  equal-equal  relationship  between  parameter  types  would  guarantee  that  a 
set  of  prime  factors  (representing  one  paranteter  type)  would  be  divided  by  a  non-subset 
set  of  prime  factors  (representing  the  other  parameter  type  in  the  mapping)  resulting  in  a 
non-zero  remainder.  Another  point  to  make  with  this  prime  factorization  scheme  is  that, 
given  an  input  signature,  it  is  easy  to  derive  the  parameter  types  that  make  it  up.  Starting 
with  the  largest  representational  values  and  working  down  to  the  smallest,  the 
representational  value  is  divided  into  the  signamre.  If  the  remainder  is  zero,  then  the 
new  signature  value  becomes  the  result  of  the  division  and  we  have  successfully 
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extracted  one  parameter  type.  We  repeat  this  process  with  the  same  representational 
value  until  we  get  a  non-zero  remainder.  If  the  remainder  is  non-zero  dien  the  value  of 
the  signature  is  not  changed  and  we  move  to  the  next  largest  representational  value  and 
start  the  division  process  over  again.  This  is  continued  until  the  value  of  the  signature  is 
zero  which  will  happen  once  all  parameter  types  are  extracted.  This  process  of  deriving 
the  parameter  types  that  make  up  the  signature  is  identical  to  the  retrieval  {rfiase  of  the 
knapsack  algorithm  [Manb89]. 

Two  factors  aid  the  search  process  in  a  list  of  components  ordered  by 
parameter  signature  value  for  a  match  even  when  an  exact  parameter  signature  match  is 
unavailable.  First,  all  software  base  components  with  an  input  parameter  signature 
greater  than  the  query  component  input  parameter  signature  can  be  skipped  because  the 
query  component  input  parameter  signature  cannot  be  divided  into  by  any  of  them  with  a 
remainder  of  zero.  Second,  all  software  base  components  that  have  a  parameter 
signature  less  than  or  equal  to  the  query  corrg)onent's  parameter  signature  can  quickly  be 
checked  by  dividing  the  software  base  component  signature  into  the  query  component 
signature  to  see  if  the  result  is  a  zero  remainder  (for  input  parameters).  All  results  with  a 
zero  remainder  indicate  a  match. 

c.  Problems  With  the  Initial  Mechanism 

While  outwardly  fast  and  effective,  this  initial  strategy  for  syntactic  matching 
has  several  shortcomings.  Array  types,  which  are  composite,  are  made  up  of  two 
components;  an  element  and  an  index.  This  necessitated  separate  and  unique 
numbering  schemes  for  the  array  index  and  array  element  in  order  to  distinguish  the  array 
components  from  stand  alone  parameter  types.  For  example,  using  the  representational 
value  of  30  for  an  Integer  whether  that  Integer  is  a  stand  alone  paranieter  type  or  the 
index  component  of  an  Array  type  cannot  be  allowed.  Otherwise,  dividing  a  signature 
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with  one  paiameter  of  type  Integer  (signature  =  30)  into  a  signature  with  one  parameter 
of  type  Array  [element :  Record,  index  :  Integer]  (signature  =  107,880  =  58  x  62  x  30) 
would  result  in  a  zero  remainder,  falsely  indicating  that  the  signatures  matched. 

Trying  to  match  software  base  components  that  had  more  input  parameters 
than  the  query  component  (only  allowable  in  the  case  of  aggregate  input  signatures  for 
PSDL  types)  necessitated  another  separate  aixi  unique  numbering  scheme  similar  to 
Figure  6  but  reversed  with  the  root  representational  value  taking  on  the  product  of  its 
children's  representational  values  and  a  unique  prime.  This  forced  the  representational 
values  for  ancestors  to  be  greater  than  those  of  descendants.  The  reason  for  this  is  that  it 
is  important  that  the  signature  being  divided  into  have  the  larger  value  and  therefore  be 
the  one  allowed  to  have  extra  parameters.  Since  it  is  always  either  an  equal  or  larger 
value  than  that  of  the  signature  dividing  into  it,  increasing  its  value  by  multiplying  it  by 
additional  parameter  representational  values  does  not  affect  the  outcome  of  the  division 
(i.e.,  a  zero  or  non-zero  remainder).  For  example,  if  Signature  1  with  one  Discrete 
parameter  (signature  =  6)  is  dividing  into  Signature2  with  one  Integer  parameter 
(signature  =  30),  then  we  can  arbitrarily  add  a  Character  parameter  to  Signature2  (new 
signature  =  21,420  =  30  x  714)  without  affecting  the  fact  that  Signature2  divided  by 
Signature  1  will  result  in  a  zero  remainder. 

Finally,  the  greatest  shortcoming  of  this  initial  mechanism  proved  to  be 
technical.  The  numeric  values  of  calculated  signatures  were  sinply  too  large  to  be 
handled  by  a  computer  dealing  with  64  bit  floating  point  values  without  losing  precision. 
The  maximum  available  precision  of  15  digits  was  far  too  small  and  too  limiting  for  the 
needs  of  this  mechanism. 


39 


2.  A  Successful  Syntactic  Matching  Mechanism 

The  mechanism  developed  in  this  diesis  for  syntactic  matching  that  overcame  the 
above  problems  is  loosely  based  on  the  concepts  of  pattern  recognition  and  set  theory 
[Epp90,  Manb89].  First,  let  us  picture  the  subtype  hierarchy  of  Figure  S  as  a  hierarchy 
of  regions  portrayed  as  follows: 


Partial  Ordering  of  Ada  Types 
Withi?egtoiis 


Figure  7  -  Subtype  Hierarchy  with  Regions  (Input  Parameters) 
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Figure  7  depicts  a  hierarchy  of  regions  for  input  parameter  types.  The  grtq[rfiical 
depiction  of  one  region  within  another  represents  the  concq>t  of  subtype  and  supertype 
relationships  in  a  type  hierarchy;  inner  regions  are  the  subtypes  of  their  outer  regions, 
and  outer  regions  are  the  supertypes  of  their  inno’  regions.  Note  that  unlike  Figure  5,  a 
clear  distinction  is  made  between  the  generic  and  non-generic  Private  type.  This  is 
necessary  because  when  matching  input  parameters,  the  non-genaic  Private  type  does 
not  have  any  descendants.  It  must  be  matched  exactly  or  to  a  genetic  Private  type.  The 
other  generic  types  are  not  portrayed  here  because  their  role  is  not  as  crucial  with  input 
parameters.  For  example,  a  query  component  input  parameter  of  type  Boolean  matches 
equally  well  to  a  software  base  component  input  parameter  of  type  Discrete  or  generic 
Discrete. 

This,  however,  is  not  the  case  with  output  parameter  types.  The  reason  for  this  is 
that  the  mapping  direction  is  reversed  for  output  parameters.  A  query  component  output 
parameter  of  type  Boolean  does  not  match  a  software  base  component  output  parameter 
of  type  Discrete.  However,  it  does  match  a  software  base  component  output  parameter 
of  type  generic  Discrete  because  that  parameter  could  be  instantiated  to  Boolean.  So, 
for  output  parameters,  we  have  a  separate  scheme  depicting  a  hierarchy  of  output 
parameter  regions  as  illustrated  in  the  following  figure: 
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Figure  7a  •  Subtype  Hierarchy  with  Regions  (Output  Parameters) 

To  simplify  the  drawing,  connection  dots  are  used  to  portray  some  of  the  mappings  for 
the  generic  Private  type. 

a.  Parameters  as  Patterns 

The  input  parameters  that  make  up  a  software  component's  input  signature 
can  be  portrayed  graphically  by  the  number  of  times  they  appear  in  the  various  type 
hierarchy  regions.  A  software  component  with  one  input  parameter  of  type  Integer  and 
two  of  type  Enumraation  could  be  graphically  depicted  as  follows: 
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Figure  8  -  Parameters  as  a  Pattern 


The  layout  of  these  input  parameter  types  in  their  respective  regions  creates  a  pattern 
that  graphically  portrays  the  input  signature  of  the  software  component.  Another 
software  component  with  the  same  pattern  must  have  the  same  input  parameter 
composition  because  a  pattern  is  composed  of  the  sub-patterns  of  individual  parameter 
types  (i.e.,  a  shaded  block  in  the  Enumeration  region,  a  second  shaded  block  in  the 
Enumeration  region,  and  a  shaded  block  in  the  Integer  region). 
b.  Pattern  Matching 

The  more  difficult  question,  however  is  how  to  identify  a  pattern  that  is  similar 
because  it  provides  a  correct  mapping  to  the  pattern  in  Figure  8.  For  example,  suppose 
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we  are  trying  to  match  the  software  component  in  Figure  8  (the  software  base 
component)  with  a  query  component  that  has  input  parameters  of  type  Character, 
Boolean,  and  Positive.  We  will  graphically  portray  these  parameters  as  filled  black 
circles  as  follows: 


Figure  9  -  Input  Parameter  Pattern  Matching 

The  solution  to  matching  similar  patterns  is  solved  by  utilizing  set  theory  and  applying  it 
to  the  hierarchy  of  regions.  Input  parameter  regions  are  considered  sets  whose  elements 
consist  of  all  subset  regions  and  themselves.  Conversely,  output  parameter  regions  are 
considered  sets  whose  elements  consist  of  all  superset  regions  and  themselves.  As  an 
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input  parameter  example,  an  input  parameter  of  type  Integer  is  represented  as  a  set 
containing  the  elements  Regions  6,  5,  2,  and  1,  which  can  be  written  as 
Region_Set(Integer)  =  {Region  1,  Region  2,  Region  5,  Region  6}.  As  an  output 
parameter  example,  Region_Set(Integer)  =  {Region  6,  Region  8).  A  pattern  is 
therefore  defined  as  the  multi-set  containing  all  regions  utilized  by  a  component  A 
multi-set  allows  duplication  so  that  each  instance  of  region  occupation  by  a  parameter 
type  appears  in  the  set.  Patterns  are  synonymous  with  signatures,  and  there  is  a  separate 
pattern  for  the  input  and  output  signature.  A  query  component  pattern  (QCP)  matches  a 
software  base  component  pattern  (SBCP)  when  QCP  c  SBCP.  Thus,  for  our  exan:^)le 
in  Figure  9,  the  query  component  pattern  is  {Region  1,  Region  3,  Region  4}  which  is  a 
valid  subset  of  the  software  base  component  pattern  of  (Region  1.  Region  2,  Region  5, 
Region  6,  Region  3.  Region  4,  Region  7,  Region  3,  Region  4.  Region  7 }. 

One  benefit  with  matching  a  query  pattern  as  a  subset  of  a  software  base 
pattern  is  that  extra  input  or  output  parameters  in  the  software  base  component  do  not 
affect  the  matching  process.  They  are  singly  irrelevant  pieces  of  the  software  base 
component  pattern.  As  long  as  the  software  base  component's  pattern  includes  the 
elements  of  the  query  component  pattern,  a  match  is  recognized.  The  reason  this  is  true 
is  similar  to  the  prime  numbering  scheme  concept  of  getting  match  results  by  dividing 
signatures,  discussed  in  Section  rV.C.l.  Let  us  use  Figure  9  and  an  input  signature  or 
pattern  as  an  example  (we  will  ignore  generic  Privates  for  this  example).  The 
Region_Set  for  a  query  component  input  parameter  of  type  Positive  is  {Region  1 }.  This 
input  parameter  can  legally  map  to  software  base  component  input  parameter  types 
Natural,  Integer,  or  Discrete  which  have  Region_Sets  of  {Region  1,  Region  2},  {Region 
1,  Region  2,  Region  5,  Region  6},  and  {Region  1,  Region  2,  Region  5,  Region  6,  Region 
8}  respectively.  The  pattern  for  the  query  component  input  parameter  Positive  is  a 


subset  of  any  of  the  software  base  component  input  parameter  type  patterns  it  can  legally 
map  to.  Adding  set  elements  representing  additional  input  parameters  to  the  software 
base  component  input  signature  pattern  does  not  alter  the  subset  relationship  of  the 
query  component  input  signature  (in  this  example  comprised  of  the  single  input 
parameter  type  Positive). 

c.  Signature  Representation 

The  ultimate  size  of  a  software  reuse  library  could  easily  be  on  the  order  of 
tens  of  thousands  of  components  or  more.  Because  pattern  matching  can  be  a 
computationally  intensive  process,  a  representation  for  component  input  and  output 
signatures  is  needed  that  allows  signatures  to  be  compared  quickly.  Signatures  (or 
patterns)  are  represented  as  a  series  of  32  bit  integers  with  each  integer  representing  an 
individual  region.  Because  all  operations  can  be  carried  out  by  comparison  of  integer 
values,  the  matching  of  signatures  can  be  accomplished  fairly  r^idly.  GraphicaUy,  a 
signature  is  represented  as  follows: 
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Figure  10  -  Graphic  Representation  of  a  Signature 


As  Figure  10  shows,  each  region  consists  of  a  32  bit  integer.  The  value  of  the  integer  is 
equivalent  to  the  number  of  type  occurrences  encoded  in  a  region.  Therefore,  the  upper 
limit  on  number  of  parameters  of  a  particular  type  is  2^2  -  1.  A  signature  is  the  logical 
concatenation  of  24  regions.  Comparison  of  two  input  signatures  actually  involves  18 
comparisons  (one  for  each  non-generic  region  and  one  for  generic  Private).  The  generic 
regions  other  than  generic  Private  need  not  be  checked  because  the  same  result  is 
returned  by  checking  the  non-generic  region  equivalent  (see  Section  rV.C.2  for  an 
example).  However,  comparison  of  two  output  signatures  cannot  necessarily  ignore  any 
of  the  generic  regions.  Seventeen  comparisons  are  initially  made  for  the  non-generic 
regions.  If  any  of  those  17  comparisons  fail  to  match,  then  a  further  check  must  be  made 
of  the  corresponding  generic  regions.  For  example,  suppose  that  the  value  of  Region  6 
for  a  query  component  output  signature  is  three  (three  occurrences  of  type  Integer) 
while  the  value  of  Region  6  for  a  software  base  component  output  signature  is  two  (two 
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occurrences  of  type  Integer).  This  initially  indicates  that  the  two  signatures  might  not 
match,  but  is  not  conclusive.  We  must  check  the  all  relevant  corresponding  generic 
regions.  In  the  case  of  Integer,  the  corresponding  generic  regions  to  check  would  be 
generic  Discrete  and  generic  Private.  Looking  at  the  generic  Discrete  region  (Region 
19)  of  the  software  base  component  output  signature,  if  it  is  greater  than  zero  (i.e.,  it  has 
one  or  more  occuirences  of  type  generic  Discrete)  then  we  can  match  one  of  those 
occurrences  with  the  query  component  output  signature  Region  6  instance  that  was 
previously  unmatched.  At  this  point,  assuming  all  other  regi(»is  from  one  to  seventeen 
matched,  we  have  a  valid  match.  If  the  generic  Discrete  region  did  not  have  any  type 
occurrences,  or  had  fewer  occurrences  the  number  needed,  we  would  continue  by 
examining  the  occurrences  of  the  generic  Private  region  (Region  18)  in  the  same  manner. 

d.  Building  the  Signature 

All  integers  representing  regions  in  the  signature  are  initially  set  to  0. 
Parameters  are  dealt  with  sequentially.  The  regions  corresponding  to  a  parameter’s  type 
are  determined  based  on  whether  you  are  working  with  an  input  or  output  signature. 
The  relevant  regions  for  a  parameter  are  encoded  in  the  signature  by  incrementing  the 
integer  for  each  particular  relevant  region  by  1.  So,  for  example,  when  all  input 
parameters  have  been  encoded,  the  resulting  series  of  24  integers  (regions)  is  the 
corresponding  input  signature. 

e.  Signature  Matching 

Let  us  look  at  a  simplified  example  to  see  how  signature  matching  is 
performed.  Suppose  we  are  comparing  two  input  signatures.  The  software  base 
component's  input  parameters  are  one  Enumeration  type,  one  Integer  type,  and  one 
Natural  type.  Because  we  are  working  with  input  parameters,  we  can  map  in  a 
downward  direction  in  the  type  hierarchy  and  we  are  interested  in  subset  regions. 
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Region.Sets  for  the  software  base  component  will  be  (Enumeration  =  {7,  4,  3}), 
(Integer  =  {6,  S,  2,  1 })  and  (Natural  =  {2.  1 )).  Its  signature  will  have  integer  values  of 
one  for  Regions  7,  6,  S,  4,  and  3  and  integer  values  of  two  for  Regions  2  and  1.  Our 
Erst  query  component's  input  parameters  are  one  Boolean  type,  one  Integer  type,  and 
one  Positive  type.  Regions  for  the  query  component  will  be  (Boolean  =  {3}),  (Integer  = 
{6,  5,  2,  1})  and  (Positive  =  {1}).  Its  signature  will  have  integer  values  of  one  for 
Regions  6,  S,  3  and  2  and  an  integer  value  of  two  for  Region  1.  The  integer  values  for 
all  other  regions  for  both  components  remain  set  to  zero. 

Normally  only  the  query  component  signature  is  encoded  during  matching 
because  the  signatures  of  the  software  base  components  are  computed  when  the 
components  are  stored  in  the  reuse  library.  Once  the  query  signature  is  encoded, 
comparing  signatures  is  a  fast  and  simple  process.  The  first  query  component  described 
above  is  taken  through  this  process  in  the  following  figure: 
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BaglMl  BagiaaS  Bafiaa3  Rai(aa4  BagtaaS  Bagiaat  Ba^aa? 

(A)  Query  Signature: 

on  [m  □□  HE]  [Z]  cz]  [zii 


(B)  Software  Base  Signature: 


RESULT  :  All  check  marks  in  (C)  sigpBy  a  valid  match  between  the  query  and 
software  base  component  An  X  stifles  that  a  comparison  between 
regions  did  not  succeed,  Airther  signifying  a  failed  match. 

Note  that  for  simplification,  only  regions  1  -  7  are  used  in  this 
example. 

Figure  11  •  Signature  Matching  Example  1 

The  first  pair  of  regions  to  be  compared  in  which  the  integer  value  of  the  query 
component  region  is  greater  than  the  region  value  of  the  software  base  component 
region  value  indicate  that  a  match  is  not  possible  and  the  comparison  with  that  particular 
software  base  component  is  done.  If  all  18  (only  seven  are  shown  in  Figure  1 1)  region 
comparisons  succeed  then  a  match  has  been  found,  as  is  the  case  in  Figure  11. 

Now  let  us  take  a  look  at  a  second  example.  The  input  parameters  for  the 
software  base  component  will  remain  the  same.  Our  second  query  component's  input 
parameters  are  one  Boolean  type  and  two  Integer  types.  Region.Sets  for  the  query 
component  will  be  (Boolean  -  {3}),  (Integer  -  {6,  5,  2,  1})  and  (Integer  -  {6,  5,  2,  1}). 
Its  signature  will  have  an  integer  value  of  one  for  Region  3  and  an  integer  value  of  two 
for  Regions  6,  5,  2,  and  1.  Integer  values  for  all  other  regions  for  both  components 


remain  set  to  zero.  The  following  figure  illustrates  the  signature  matching  process  for 
the  second  query  component: 


Railaal  Sc|foo2  EcgloaS  K«tloa4 

kc^«5 

KifioaS 

l<|i€o7 

(A)  Quo*;  Signature: 

1  2  1  1  2  1  1  1  1  1  0 

1  ^ 

1  ^ 

1  ®  1 

(B)  Software  Base  Signature: 

1  2  1  1  2  1  1  1  1  1  1 

1  1 

□I 

1  ^  1 

(C)  Comparison  Result: 

V  1  1  V  1  1  V  1  V 

1  ^ 

1  ^ 

m 

RESULT :  AU  check  marks  in  (C)  signify  a  valid  match  between  the  query  and 
software  base  component  An  X  signifies  that  a  comparison  between 
regions  did  not  succeed,  further  signifying  a  failed  match. 

Note  that  for  simplification,  only  regions  1  •  7  are  used  in  this 
example. 

Figure  12  •  Signature  Matching  Example  2 


As  expected,  we  did  not  get  a  match  because  the  Integer  parameter  in  the  query 
component  cannot  map  to  the  Natural  parameter  in  the  software  base  component  when 
working  with  input  signatures.  The  regions  that  wound  up  with  X's  were  the  two 
regions  (Integer  and  Range)  that  were  part  of  the  query  Integer  parameter  pattern  but 
not  part  of  the  software  base  component  Natural  parameter  pattern. 

/.  Limitations  with  Composite  Types 

The  syntactic  matching  mechanism  described  in  Sections  rV.C.2(a-e)  above 
has  some  limitations  when  dealing  with  composite  types  such  as  arrays  and  records. 
Composite  types  are  defined  as  types  that  are  logically  made  up  of  several  con^onents 
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[Booc87].  Arrays  have  two  q)ecific  components,  an  index  type  and  an  elemoit  type. 
Matching  arrays  based  on  the  makeup  of  dieir  two  components  could  be  handled  in  the 
same  manner  as  matching  scalar  types  breaking  out  an  array  type  into  three  types;  a 
scalarized  array,  an  index,  and  an  element  However,  one  limitation  widi  this  method  is 
that  false  matches  could  be  recorded  due  to  confusion  about  which  is  the  array  dnnent 
and  which  is  the  array  index.  For  example.  Array  l[ArTay_Element  :  Integer, 
Array_Index  ;  Positive]  would  be  incorrectly  matched  with  ATray2[Array_Elcmcnt  : 
Positive,  Array.Index  :  Integer].  A  second  concern  is  the  fact  that  diis  could  lead  to  an 
solution  with  unbounded  nesting,  because  an  Array  element  could  itself  be  an  Array 
which  in  turn  would  have  to  be  described  by  its  components.  Records  do  not  suffer  from 
the  problem  of  confusing  their  subcomponents.  Record  components,  however,  have  the 
same  potential  for  unbounded  nesting. 

One  final  potential  limitation  of  arrays  concerns  the  matching  of  an  array  as  a 
query  component  input  parameter  against  a  generic  Private  type  in  a  software  base 
component  input  parameter.  While  the  pattern  of  the  Array  type  fits  into  the  pattern  of 
the  Private  type,  the  patterns  of  the  Array  plus  its  components  do  not 

The  solution  to  these  limitations  is  to  not  consider  components  of  con^site 
types  during  signature  matching.  Software  components  are  evaluated  for  matches  at  the 
composite  type  component  level  during  additional  match  processing  subsequent  to 
signature  matching. 

g.  Eliminating  Fcdse  Matches 

False  matches  are  a  problem  with  input  parameters  when  using  the  pattern 
matching  technique.  The  reason  stems  from  the  fact  that  additional  information  for  each 
input  parameter  in  the  software  base  component  is  added  to  the  pattern  along  multiple 
downward  paths  in  the  type  hierarchy  to  ensure  any  valid  subtype  in  the  query 
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component  will  be  recognized.  For  example,  if  Discrete  is  the  type  of  one  of  die 
software  base  component  input  parameters,  dien  not  only  is  the  integer  value  of  the 
Discrete  region  incremented  by  one,  but  the  integer  values  of  the  regions  corresponding 
to  Integer,  Range,  Natural,  Positive,  Enumeration,  Boolean  and  Qiaracter  are 
incremented  by  one  as  well.  Because  the  added  information  represents  several  distinct 
downward  paths  in  the  type  hierarchy  rather  than  only  one,  it  is  possible  that  the  pattern 
representing  the  one  Discrete  type  might  falsely  match  input  parameter  patterns 
representing  several  subtypes  of  discrete  with  non-overlapping  paths.  Two  paths  are 
defined  as  overlapping  if  they  are  equal  or  if  one  path  contains  all  the  nodes  of  the  other. 
Any  other  path  is  considered  non-overlapping.  As  an  example,  let  us  look  at  a  software 
base  component  with  one  Discrete  type  and  two  Boolean  type  input  parameters.  The 
corresponding  query  component  will  have  one  Range  type,  one  Natural  type,  and  one 
Character  type  for  its  input  parameters.  Here  is  what  the  input  signature  matching 
process  would  result  in  for  these  two  components: 
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R*|kHi2  Rc(h>n  3 

Region  4 

Region  5  Region  4  Region  7  Region  S 

(A)  Query  Signature: 

1  1  1  1  0 

1  1 

nn  rn  rn  rn 

(B)  Software  Base  Signature: 

CZ]  DI 

1  1 

1  1  1  1  1  1  1  1  1  1  1  1 

(C)  Conqiarison  Result: 

m  □: 

□I 

□□□□□□□□ 

RESULT:  All  check  marks  in  (C)  signify  a  valid  match  between  the  query  and 
software  base  component  An  X  signifies  that  a  comparison  between 
regions  did  not  succeed,  further  signifying  a  failed  match. 

Note  that  for  simplification,  only  regions  2  -  8  are  used  in  this 
example. 

Figure  13  •  Example  3 


Although  we  know  that  the  input  signatures  of  these  two  components  do  not  match,  the 
pattern  comparison  technique  generates  a  match.  It  is  the  non-overlapping  paths  that 
create  the  problem.  TTie  pattern  for  Discrete  has  several  non-overlapping  downward 
paths  that  can  be  seen  in  the  type  hierarchy  of  Rgure  7.  ExaiTq)les  are  from  Discrete 
down  to  Natural,  Boolean,  Character,  and  Range.  Thus,  the  one  parameter  type 
Discrete  could  potentially  signify  a  simultaneous  match  against  four  separate  parameter 
types.  Even  if  the  number  of  input  parameters  are  the  same  in  both  the  software  base 
component  and  query  component,  we  still  have  false  matches  created  by  non-overlapping 
paths  from  the  same  root  as  we  saw  in  Example  3  above. 

Because  output  parameters  deal  with  supertypes  that  definition  must  have 
overlapping  paths,  the  process  of  matching  output  signatures  cannot  generate  false 
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matches.  Therefore  we  now  describe  a  method  to  eliminate  false  matches  for  input 
signatures. 

We  start  with  the  query  component  and  move  from  the  bottom  of  the  type 
hierarchy  (Figure  7)  to  the  top,  working  with  the  leaf  nodes.  Nodes  are  equivalent  to  the 
regions  that  comprise  a  signature.  When  processing  of  a  leaf  node  is  complete,  it  is 
discarded.  When  all  the  leaf  nodes  of  a  parent  node  have  been  processed  and  discarded, 
the  parent  then  becomes  a  leaf  node.  Processing  a  leaf  node  occurs  in  several  steps.  If  a 
leaf  node  has  an  integer  value  greater  than  zero  (i.e.,  it  has  one  or  more  occurrence  of 
partial  encoding  information  for  a  parameter  type  instance),  then  a  parallel  path  is  traced 
in  the  query  and  software  base  components  from  the  particular  leaf  node  up  the  subtype 
hierarchy.  The  trace  in  the  query  component  stops  when  (1)  the  parent  node  of  the 
current  query  node  has  an  integer  value  of  zero  (i.e.,  no  partial  encoding  information  for 
a  parameter  type  instance),  (2)  the  current  query  node's  parent  has  a  smaller  integer 
value  than  the  current  node  (i.e.,  partial  encoding  information  for  fewer  parameter  type 
occurrences),  (3)  the  current  query  node  is  the  top  of  the  subtype  hierarchy,  or  (4)  the 
software  base  current  node  has  an  integer  value  of  zero  and  the  current  query  node  has 
an  integer  value  greater  than  zero.  In  the  first  three  cases  we  have  completed  a  trace  of  a 
single  query  input  parameter  and  it  has  a  valid  matching  software  base  component  input 
parameter.  The  fourth  case  represents  a  false  match.  At  this  point,  we  have  a  parallel 
trace  established  on  the  software  base  component.  We  now  decrement  the  integer  value 
of  the  query  component  current  node  and  all  it'  descendant  nodes  by  one  which  has  the 
effect  of  removing  all  the  encoding  of  a  parameter  type  instance  from  the  query  input 
signature.  The  trace  up  the  type  hierarchy  continues  for  the  software  base  component 
and  halts  under  the  same  first  three  conditions  described  for  stopping  the  query 
component  trace.  At  this  point  we  have  a  complete  path  defined  in  our  software  base 
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component  The  root  of  the  path  represents  the  type  of  the  corresponding  software  base 
component  input  parameter.  Next,  all  downward  paths  from  that  type  must  be  traversed 
and  the  integer  value  decremented  by  one  at  each  node  including  the  root 

To  see  how  the  fourth  case  described  above  would  occur  let  us  use  the  two 
components  from  Example  3  in  Figure  13.  Example  3  generated  a  valid  match,  so  now 
we  must  test  it  to  see  whether  a  false  match  had  been  generated.  Refer  to  the  following 
figure  as  we  check  for  a  false  match: 


Figure  14-  False  Match  Example 


Since  two  of  the  three  input  parameters  for  the  query  component  are  leaf  nodes  in  the 
Ada  type  hia-archy,  we  arbitrarily  pick  Range  to  start  with.  It  has  an  integer  value 
greater  than  zero  and  so  we  attempt  to  proceed  in  an  upward  path  in  both  the  quay  and 
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software  base  components.  However,  because  the  query  component  parent  (Integer)  has 
an  integer  value  of  zero,  we  go  no  further  with  the  query  component  (Figure  14  (a)). 
We  decrement  the  integer  value  of  the  query  component  Range  node  and  all  its 
descendants  by  one  (in  this  case,  the  type  Range  has  no  descendants  -  Rgure  14  (c)). 
We  now  continue  with  the  software  base  component  moving  upward  through  the  Ada 
type  hierarchy  from  Range  until  we  reach  Discrete.  At  that  point,  the  parent  of  Discrete 
has  an  integer  value  of  zero  (Figure  14  (b)).  Since  Discrete  is  the  root  of  the  path  we 
found  in  the  software  base  component,  it  must  be  an  input  parameter  type.  We  must 
now  decrement  the  integer  values  by  one  for  all  nodes  along  the  paths  Discrete-Range, 
Discrete-Positive,  Discrete-Character,  and  Discrete-Boolean  (Figure  14  (d)).  Care  must 
be  taken  to  only  decrement  the  integer  value  of  a  node  by  one  the  first  time  it  is 
traversed.  The  only  node  with  a  non-zero  integer  values  in  the  software  base  component 
input  signature  at  this  point  is  the  Boolean  region  (Figure  14  (d)).  We  now  turn  back  to 
the  query  component  and  proceed  with  the  next  leaf  node.  Character  (Figure  14  (d)). 
Immediately  we  run  into  case  four  where  the  query  component  Character  node  has  an 
integer  value  of  one,  but  the  corresponding  software  base  component  Character  node  has 
an  integer  value  of  zero  indicating  that  we  have  a  false  match  between  these  two 
components  (Figure  14  (c)  and  (d)). 

Thus  we  have  a  a  process  to  detect  false  matches.  In  cases  where  two 
components  do  match,  the  check  for  false  matches  will  confirm  the  valid  match. 
h.  Measuring  Signature  Closeness 

In  a  software  reuse  library  with  tens  of  thousands  of  components  it  is  expected 
that  many  attempts  to  match  a  particular  query  component  will  yield  multiple  candidates. 
It  is  additionally  desirable,  therefore,  not  only  to  provide  all  matches  but  also  to  order 
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them  from  the  closest  match  to  least  closest.  From  that  point  individual  scrutiny  on  a 
component  by  component  basis  must  be  performed  by  the  software  i^ototype  developer. 

For  operator  components,  using  the  difference  in  number  of  ou^ut 
parameters  between  the  query  and  software  base  component  is  a  good  first  criterion  to 
base  the  ordering  of  candidate  matches.  It  is  possible  to  further  improve  the  candidate 
ordering  by  using  signature  closeness  as  the  second  ordering  criterion.  Signature 
closeness  is  determined  by  evaluating  an  overall  measure  of  closeness  in  type  between 
two  signature's  parameters.  Closeness  is  defined  as  the  length  of  the  path  (i.e.,  number 
of  edges)  between  two  nodes  in  the  type  hierarchy.  This  is  well  defined  because  the  type 
hierarchy  is  a  tree,  so  there  is  exactly  one  path  between  any  two  nodes  related  by  the 
subtype  relation.  Closeness  is  only  relevant  where  a)  the  two  nodes  are  the  same,  or  b) 
one  node  is  a  descendant  of  the  other.  We  have  defined  closeness  between  two 
parameter  types.  The  closeness  for  a  signature  is  an  extension  of  that  definition  and  is 
the  summation  of  the  individual  closeness  measurement  between  each  query  component 
parameter  and  its  matching  software  base  component  parameter.  Input  signature 
closeness  is  the  summation  for  input  parameters,  and  the  output  signature  closeness  is 
the  summation  for  output  parameters.  Operator  closeness  is  the  summation  of  the  input 
signature  and  output  signature  closeness  values. 

When  the  software  base  component  has  more  output  parameters  than  the 
query  component,  these  extraneous  parameters  must  not  be  included  when  calculating 
the  closeness  degree.  For  one  thing,  the  difference  in  the  number  of  output  parameters 
has  already  been  taken  into  account  by  the  first  criterion  described  above  for  ordering 
matches.  A  second  reason  is  that  the  results  generated  by  those  output  parameters  are 
not  necessarily  of  interest  to  the  prototype  designer.  Therefore,  the  closeness  degree  is  a 
measurement  describing  type  distance  between  all  matched  parameters.  Input  and  output 
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parameters  are  processed  in  a  similar  manner  with  slight  differences  to  arrive  at  an 
overall  signature  closeness  measurement 

For  input  parameters,  we  piggyback  onto  the  process  that  checks  for  false 
matches  in  Section  IV.C.2.g.  The  false  match  check  extracts  the  query  and  software 
base  component  parameter  pairs  which  allows  us  to  then  calculate  the  closeness  once  the 
exact  parameter  types  of  the  matched  parameters  are  known.  The  crucial  part  of 
measuring  closeness  comes  when  the  upward  trace  is  halted  in  the  query  component 
while  checking  for  a  false  match.  At  that  point  both  the  query  and  software  base 
component  have  a  closeness  degree  of  0  and  we  have  a  parallel  trace  established  on  the 
software  base  component.  The  trace  up  the  type  hierarchy  continues  for  the  software 
base  component  and  halts  under  the  same  three  conditions  described  for  stopping  the 
query  component  trace.  At  that  point  we  have  identified  the  software  base  parameter 
type  that  matches  the  query  component  parameter  type  we  are  trying  to  match.  Each 
additional  node  reached  in  the  software  base  component  trace  is  counted  as  a  degree  of 
closeness.  Therefore,  for  example,  if  the  query  component  trace  went  fi-om  Positive 
through  Integer  and  the  software  base  component  trace  continued  on  to  generic  Private, 
the  difference  in  nodes  firom  Integer  to  generic  Private  is  two  which  corresponds  to  the 
degree  of  closeness  between  the  two  input  parameters  Integer  (query  component)  and 
generic  Private  (software  base  component). 

With  output  parameters  we  also  start  with  the  leaf  nodes  of  the  query 
component.  Because  output  signatures  are  encoded  by  adding  one  to  the  integer  value 
of  the  node  corresponding  to  the  parameter  type  and  all  its  ancestors,  all  query 
component  original  leaf  nodes  that  have  type  occurrences  encoded  in  them  will  have 
exact  matches.  It  is  when  we  exhaust  all  query  component  leaf  nodes  and  start 
examining  nodes  at  a  higher  level  (also  called  leaf  nodes  since  at  that  point  their  children 
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have  been  eliminated,  but  note  that  these  are  not  original  leaf  nodes)  that  we  may 
encounter  a  positive  closeness  factor.  When  a  leaf  node  has  an  integer  value  greater  dian 
zero,  we  decrement  by  one  the  integer  value  of  all  nodes  from  the  leaf  node  along  the 
path  to  the  top  of  the  hierarchy  in  both  the  query  and  software  base  component  Then 
we  must  trace  the  software  component  from  its  corresponding  leaf  node  down  through 
the  type  hierarchy  until  we  teach  a  descendant  node  that  is  a  subtype  hierarchy  leaf  node 
or  whose  integer  value  is  greater  than  the  sum  of  the  integer  values  of  its  children.  If,  in 
order  to  continue  a  required  downward  trace,  we  must  choose  amongst  the  children  of  a 
node,  the  child  is  picked  that  has  the  shortest  possible  path  to  a  leaf  node.  Each 
additional  node  reached  in  the  software  base  component  downward  trace  is  counted  as  a 
degree  of  closeness.  Therefore,  for  example,  if  the  query  component  trace  was  based  at 
Integer  and  the  software  base  component  trace  continued  from  Integer  down  to  Positive, 
the  difference  in  nodes  from  Integer  to  Positive  is  two  which  corresponds  to  the  degree 
of  closeness  between  the  two  output  parameters. 

The  methods  described  above  for  measuring  input  and  output  signature 
closeness  apply  equally  to  type  components.  The  only  difference  is  that  where  operator 
closeness  is  the  summation  of  the  input  and  output  signature  closeness  values,  type 
closeness  is  the  summation  of  the  operator  closeness  values  for  each  of  the  type's 
operators.  Despite  the  fact  that  the  calculation  of  type  closeness  is  a  simple  extension  of 
the  calculation  of  operator  closeness,  it  is  not  used  in  this  implementation  of  syntactic 
matching.  The  reason  for  this  is  due  to  the  semantic  uncertainty  of  matching  the 
operators  of  a  type  component.  There  may  be  numerous  valid  mappings  between  the 
operators  in  the  query  and  software  base  component,  but  there  is  no  way  to  know  in 
advance  which  of  the  valid  mappings  is  the  one  desired  by  the  user.  For  example, 
suppose  the  query  type  component  has  two  operators,  the  first  with  a  single  input 
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parameter  of  type  Positive  and  the  second  with  a  single  input  parameter  of  type  Natural. 
Let  us  hirther  suppose  that  a  candidate  software  base  type  component  has  four 
operators.  The  first  operator  has  a  single  input  parameter  of  type  Integer,  the  second 
has  a  single  input  parameter  of  type  Integer,  the  third  has  a  single  input  parameter  of 
type  Natural,  and  the  fourth  has  a  single  input  parameter  of  Qpe  Positive.  There  are  six 
different  possible  mapping  from  the  two  query  component  operators  to  two  of  the  four 
software  base  component  operators,  with  a  range  in  aggregate  input  signature  closeness 
from  0  to  3. 

L  An  Additional  Syntactic  Matching  Filter  For  Type  Components 

The  aggregate  input  and  output  signatures  provide  a  useful  filter  for  matching 
type  components  but  do  not  ensure  that  a  match  has  been  found.  The  next  step  in  the 
process  of  matching  type  components  is  to  determine  whether  a  valid  mapping  can  be 
derived  for  the  operators  of  the  query  and  software  base  type  components  as  was  briefly 
discussed  in  the  above  paragraph.  All  combinations  of  mappings  pairing  each  query 
operator  with  one  of  the  software  base  operators  must  be  examined  until  a  valid 
mapping  is  found.  For  each  query/software  base  component  operator  pairings,  the  input 
and  output  signatures  of  the  operator  pair  are  compared.  If  they  match,  then  that 
particular  pairing  is  valid.  If  all  pairings  in  a  total  mapping  are  valid,  then  the  mapping  is 
valid  and  the  candidate  software  base  type  component  successfully  passes  through  this 
filter  and  remains  a  match  candidate. 

j.  An  Additional  Syntactic  Matching  Filter  for  Non-Generic  Components 
Section  rV.C.f  discussed  the  limitations  of  composite  types  such  as  Arrays  and 
Records  and  suggested  that  the  components  of  these  composite  types  be  excluded  from 
signature  matching  and  examined  during  subsequent  match  processing.  An  additional 
filter  has  been  developed  for  ensuring  that  parameter  composite  types  match  at  the 
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component  level.  This  process  is  very  similar  to  the  process  for  detmnining  a  valid 
mapping  between  type  component  operators.  Only  the  components  of  Array  types  are 
examined  in  this  implementation.  Note  that  String  types  are  included  as  special  cases  of 
Array  types.  In  addition,  this  filter  was  implemented  for  operators,  but  not  types. 

All  combinations  of  mappings  between  the  query  component  operator  input 
Array  parameters  and  the  software  base  component  operator  input  Array  parameters  are 
explored  until  either  a  valid  mapping  is  found  or  all  combinations  have  been  exhausted. 
A  valid  mapping  has  been  found  when  each  one  of  the  query  component  operator  input 
Array  parameters  can  be  matched  to  a  distinct  software  base  component  operator  input 
Array  parameter  at  the  Array's  component  level.  This  matching  only  goes  to  the  first 
level.  So,  for  example,  if  an  Array  element  is  an  Array,  that  element  is  not  subsequently 
matched  based  on  the  values  of  its  components.  If  a  valid  mapping  is  found  for  input 
Array  parameters,  then  the  same  process  is  carried  out  for  output  Array  parameters.  If  a 
valid  mapping  is  then  found  for  output  Array  parameters,  the  candidate  software  base 
operator  component  successfully  passes  through  this  filter  and  rranains  a  match 
candidate.  The  process  for  both  input  and  output  Array  parameters  can  be  summarized 
as  follows: 

•  Go  through  the  list  of  query  component  Array  parameters.  For  each,  go 
through  the  list  of  software  base  component  Array  parameters  and  record  all 
matches. 

•  Start  with  the  first  query  component  Array  parameter  and  select  the  first 
software  base  component  Array  parameter  it  has  a  recorded  match  with.  That 
software  base  component  Array  parameter  is  now  considered  IN_USE. 

•  Go  to  the  next  query  component  Array  parameter,  and  select  the  first  software 
base  component  Array  parameter  that  it  has  a  recorded  match  with  and  that  is 
not  IN_USE.  Mark  its  selection  as  IN_USE. 
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•  Continue  this  process  through  all  query  conrponent  Array  parameters.  If  the 
last  query  component  Array  parameter  is  reached  and  there  is  a  software  base 
component  Array  parameter  that  it  has  a  recorded  match  with  that  is  not 
IN_USE  then  we  are  done  and  a  match  was  found  for  diis  filter.  Otherwise,  if 
a  query  component  parameter  is  reached  but  all  the  software  base  conq>onent 
Array  parameters  that  it  has  a  recorded  match  with  are  in  use,  backtrack  to  the 
previous  query  component  Array  parameter,  mark  the  current  software  base 
component  Array  parameter  it  is  mapped  to  as  not  IN_USE,  and  attempt  to 
find  the  next  software  base  component  Array  parameter  that  it  has  a  recorded 
match  with  to  mark  IN_USE. 

•  If  we  backtrack  to  the  first  query  component  Array  parameter  after  trying  the 
last  software  base  Array  parameter  it  recorded  a  match  with,  then  the  match 
fails. 

Generic  components  do  not  use  this  filter  for  two  reasons.  First,  the  addition 
of  generics  complicates  the  process  of  mapping  query  to  software  base  component  Array 
parameters.  With  non-generic  components,  every  query  component  Array  parameter 
must  have  a  corresponding  software  base  component  Array  parameter  because  the  input 
and  output  signatures  of  the  two  components  have  already  been  determined  to  match. 
However,  with  generic  components,  it  is  possible  for  the  software  base  component  to 
have  fewer  Array  parameters  than  the  query  component  with  generic  parameters  making 
up  the  difference.  The  second  reason  is  that  generic  components  use  a  separate  filter 
discussed  in  the  next  section  that  includes  the  matching  of  Array  types  at  the  Array 
component  level. 

k.  An  Additional  Syntactic  Matching  Filter  for  Generic  Components 

An  ad'iitional  filter  has  been  developed  for  ensuring  that  a  query  component 
can  instantiate  a  candidate  software  base  component  and  subsequently  match  that 
instantiation.  This  process  is  similar  to  the  process  for  determining  whether  the  Array 
parameters  of  two  components  match  fully,  but  takes  on  an  extra  level  of  complexity 
because  it  deals  not  only  with  all  query  component  parameters,  but  with  the 
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instantiations  of  the  corresponding  generic  parameters  in  the  software  base  component 
Two  separate  mappings  must  be  determined.  The  first  nuq)s  the  generic  parameto^s  of 
the  software  base  component  to  the  query  component  parameters  that  will  instantiate  it 
The  second  maps  the  query  component  input  and  ouq>ut  parameters  to  the  software  base 
component  input  and  output  parameters.  These  two  mappings  are  related,  because  the 
instantiations  determined  by  the  first  mapping  affect  the  matching  of  input  and  output 
parameters  of  the  second  mapping.  To  reduce  complexity,  the  possible  generic 
instantiations  are  determined  first.  The  reason  is  that  the  combinations  for  instantiation 
of  the  generic  parameters  can  be  accomplished  without  regard  to  the  order  in  ^^ch  the 
generic  parameters  are  examined  because  they  do  not  affect  one  another.  This  is  not  the 
case  with  input  and  output  parameters.  If  input  and  output  parameters  are  examined 
first,  then  every  possible  ordering  of  those  parameters  must  be  considered  so  that  all 
possible  instantiations  are  considered. 

If  one  or  more  of  the  generic  parameters  in  the  software  base  component 
cannot  be  instantiated  then  the  match  fails.  In  addition,  this  filter  was  in^lemented  for 
operators,  but  not  types.  The  process  for  determining  whether  a  valid  instantiation  of 
the  generic  software  base  component  exists  can  be  summarized  as  follows: 
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•  Hrst  detennine  the  first  valid  mapping  from  the  software  base  component 
generic  parameters  to  corresponding  query  component  parameters  that  can 
instantiate  them.  This  mapping  detomines  the  instantiations  of  the  software 
base  component  input  and  output  parameters  that  are  defiied  by  generic 
parameters. 

•  Next,  attempt  to  find  a  valid  mapping  between  the  query  component  input 
parameters  and  the  software  base  input  parameters.  If  a  valid  mapping  is  found 
then  continue  by  trying  to  find  a  vsdid  mapping  between  the  query  con^nent 
and  software  base  component  output  parameters.  If  a  valid  mapping  is  found 
then  we  are  done  and  a  match  was  found  for  this  filter. 

•  If  a  valid  mapping  could  not  be  found  for  either  the  input  or  ouq)ut  parameters 
then  we  must  backtrack  to  find  the  next  valid  generic  instantiation  mapping  and 
proceed  from  there.  If  all  generic  instantiation  mappings  have  been  exhausted 
without  finding  valid  mappings  for  the  input  and  output  parameters,  then  the 
match  fails. 

The  detailed  process  for  determining  a  valid  mapping  for  both  the  generic  instantiation 
and  input/output  mappings  is  identical  to  the  process  described  in  Section  IV.C.2.j  for 
mapping  Array  parameters.  The  only  difference  is  what  objects  are  mapped.  For 
example,  with  generic  instantiation  mapping  we  are  mapping  software  base  component 
generic  parameters  with  query  component  input  and  output  parameters  instead  of  query 
component  Array  parameters  with  software  base  component  Array  parameters.  The 
process  for  arriving  at  a  valid  mapping  is  the  same. 

/.  A  Graphic  Representation  of  the  Syntactic  Matching  Filtering  Mechanism 
The  syntactic  matching  mechanism  can  be  summarized  by  the  graphic 
representations  of  the  component  filtering  process  depicted  below.  The  filters  are 
represented  by  the  conical  shapes  and  have  all  been  described  previously.  Here  is  the 
filtering  process  for  operator  components: 
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Figure  15  -  Filter  Process  Flow  for  Operators 

The  next  figure  depicts  the  filtering  process  for  type  components.  Note  that  total 
number  of  inputs  and  outputs  reflect  aggregate  numbers  for  the  type  component's 
operators  as  do  the  input  and  output  signatures. 
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D.  IMPLEMENTATION  DETAILS 

This  section  describes  many  of  the  implementation  details  specific  to  realizing  the 
syntactic  matching  mechanism  described  in  Section  IV.C.2  and  also  summarizes  the 
changes  made  to  the  CAPS  software  base  to  extend  its  syntactic  matching  capability. 

1.  Ada  Language  Usage  Limitations 

In  its  present  form,  CAPS  does  not  permit  certain  Ada  language  constructs  to  be 
used  in  the  Ada  specifications  and  bodies  that  make  up  the  CAPS  software  base.  Many 
of  these  limitations  are  due  to  the  current  programmed  capabilities  of  the  CAPS 
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translator.  First,  an  operator  cannot  be  implemented  as  a  function;  it  must  be  a 
procedure.  Second,  procedure  input  and  output  parameters  may  only  be  (tefined  as 
either  "in"  or  "out"  but  not  as  "in  out."  This  limitation  has  an  in^rtant  inplication  for 
naming  PSDL  specification  input  and  output  parameters.  Specifically,  it  requires  that  no 
input  parameter  name  be  the  same  as  an  output  parameter  name  widiin  the  same 
operator  in  a  PSDL  specification.  Third,  Limited  Private  types  are  not  allowed  because 
the  translator  relies  on  the  ability  to  do  assignments.  Fourth,  the  only  generic  parameters 
allowed  are  generic  types.  No  generic  objects  or  values  are  aUowed.  Furthermore,  there 
is  no  current  means  in  PSDL  for  a  prototype  designer  to  define  a  procedure  that  a 
generic  software  base  component  may  require  as  a  generic  parameter  for  instantiation. 

2.  Changes  Made  to  the  Original  CAPS  Software  Base 

The  original  CAPS  software  base  was  implemented  by  John  Kelly  McDowell. 
[McDo91]  The  primary  change  to  the  implementation  of  that  software  base  by  this 
thesis  is  the  extension  of  its  syntactic  matching  to  include  the  ability  to  match 
components  based  on  the  types  of  their  input  and  output  parameters.  This  extension  has 
resulted  in  new  code  in  the  form  of  Ada  packages  and  programs  for  signature  encoding 
and  C-H-  classes  and  programs  for  type  matching.  This  new  code  is  described  in  more 
detail  later. 

a.  The  Physical  Schema  for  the  Software  Base 

To  support  our  new  method  for  syntactic  matching,  we  have  made  some 
changes  to  the  software  base  schema  originally  designed  by  McDowell.  [McDo91] 
Before  discussing  those  changes  let  us  first  review  the  original  software  base.  Using 
states  and  the  number  of  input,  output,  and  generic  parameters  as  multi-attribute  keys, 
McDowell  designed  a  software  base  schema  that  hierarchically  partitions  the  search 
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space  thereby  limiting  the  number  of  components  that  must  be  searched  for  a  valid 
match.  Separate  hierarchies  were  designed  for  types  and  operators. 

Figure  4  provides  a  simplified  view  of  the  software  base  schema  for  operator 
components  and  is  explained  in  Sections  m.A  and  m.B.  It  does  not  include  the  use  of 
the  number  of  generic  parameters  as  multi-key  attributes.  Ontos  dictionary  classes  are 
used  as  the  hierarchy  nodes.  These  dictionaries  use  the  multi-attribute  keys  as  the 
dictionary  tag  (key)  and  a  dictionary  object  as  the  dictionary  element.  The  power  of  this 
software  base  schema  is  its  ability  to  partition  components  into  sets  with  similar 
attributes  providing  a  very  fast  mechanism  to  find  all  software  base  components  that 
match  the  attributes  of  the  query  component. 

The  changes  we  have  made  to  McDowell's  software  base  schema  are  (1)  the 
removal  of  the  number  of  generic  parameters  as  a  multi-attribute  key  and  its 
corresponding  generic  dictionary  in  both  the  operator  and  type  component  libraries,  (2) 
the  addition  of  operator  input  and  output  signatures  and  their  corresponding  dictionaries 
to  the  operator  component  library,  and  (3)  the  addition  of  type  input  and  output 
signatures  and  their  corresponding  dictionaries  to  the  type  component  library.  Each  of 
these  changes  is  explained  in  the  following  sections. 
b.  Removal  of  the  Generic  Dictionary 

The  first  change  made  to  the  software  base  schema  was  the  removal  of  the 
number  of  generic  parameters  from  consideration  as  a  multi-attribute  key  in  the 
matching  process.  In  his  thesis,  McDowell  discussed  but  never  actually  implemented 
parameter  type  matching.  [McDo91]  He  included  some  program  code  to  support  his 
parameter  type  matching  methodology  in  the  form  of  the  SB_REC(XjNIZED_TYPES 
C++  class,  defined  extensions  to  PSDL  in  the  form  of  special  identifiers,  and  created  a 
rule  matrix  that  defined  valid  type  mappings  or  subtype  relationships  between  all 
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recognized  Ada  types.  McDowell  treated  user  defined  Q^pes  as  unrecognized  types  and 
created  a  rule  between  software  base  component  gennic  parameters  and  query 
component  unrecognized  type  parameters.  An  unrecognized  type  can  be  thought  of  as  a 
user  defined  type. 

This  thesis,  however,  does  not  p«mit  unrecognized  types  and  forces  all  query 
component  parameters  to  be  defined  as  Ada  types.  That  is  not  to  say  that  a  query 
component  parameter  caimot  be  defined  as  a  user  defined  type.  It  can.  But  ultimately  by 
transitivity,  a  referenced  user  defined  type  must  be  defined  in  terms  of  an  Ada  type. 
Therefore,  given  the  difference  in  our  approach  to  matching  parameter  types,  the 
methodology  used  by  this  thesis  can  be  employed  without  unrecognized  types  which 
subsequendy  eliminates  the  need  to  try  and  match  unrecognized  types  in  the  query 
component  with  generic  types  in  the  software  base  component.  Based  on  this,  the 
number  of  generic  parameters  was  removed  as  one  of  the  multi-attribute  keys  in  the 
software  base  schema.  The  removal  of  the  number  of  generic  parameters  as  a  multi¬ 
attribute  key  eliminated  the  usefulness  of  maintaining  a  generic  dictionary  because  the 
purpose  of  that  dictionary  was  to  partition  components  based  on  their  number  of  generic 
parameters.  Therefore,  the  generic  dictionary  was  also  removed. 

Note  that  the  removal  of  this  multi-attribute  key  does  not  mean  that  generic 
parameters  are  not  used  in  the  matching  process.  They  play  an  important  part  in  both 
matching  signatures  and  determining  whether  a  valid  generic  instantiation  is  possible. 

c.  Addition  of  Operator  Component  Input  and  Output  Signature  Dictionaries 

Additions  made  to  the  complex  data  hierarchy  preserve  the  efficiency  of  the 
data  structure  while  boosting  its  partitioning  power.  The  first  addition  was  to  add  the 
operator  component  input  and  output  signatures  as  multi-attribute  keys.  They  serve  as 
additional  partitioning  mechanisms  which  further  reduce  the  set  of  components  that  have 


70 


to  be  examined.  Operator  input  and  output  signatures  work  a  little  differently  than  the 
other  multi-attribute  keys  like  the  number  of  input  parameters.  Whereas  an  Ontos 
dictionary  that  uses  the  number  of  input  parameters  as  a  key  can  immediately  retrieve  the 
corresponding  dictionary  for  the  next  lower  level  in  the  complex  data  hiaarchy,  input 
and  output  signatures  must  be  examined  one  by  one.  The  reason  lies  partly  in  how 
Ontos  identities  objects.  Signatures  are  used  as  Ontos  dictionary  keys  and  are  stored  in 
Array  objects.  Once  stored,  they  are  given  a  unique  identifier.  If  a  local  Ontos  Array  is 
then  loaded  with  an  identical  signature  to  one  stored  in  the  dictionary,  the  only  way  it 
can  tind  its  match  is  by  examining  each  dictionary  Array  element  by  element  The 
attempt  to  go  directly  to  the  matching  Array  key  in  the  dictionary  will  not  work  because 
at  that  level,  Ontos  is  trying  to  match  the  ui  que  object  identitier  value.  Because  we  are 
concerned  with  inexact  signature  matches  as  well  as  exact  ones,  having  to  scan  all 
signature  keys  in  the  dictionary  turns  out  to  be  inevitable  anyway,  so  nothing  is  really 
lost.  The  fact  that  signatures  are  represented  as  a  series  of  integers  with  the  matching 
mechanism  implemented  via  simple  integer  comparison  operations  proves  to  be  very 
efficient  So  despite  the  fact  that  signatures  must  be  examined  one  by  one,  the  process 
of  doing  so  is  relatively  quick  because  a)  considerable  partitioning  has  already  taken 
place  before  reaching  the  signature  (input  or  output)  dictionary  level  in  the  complex  data 
hierarchy  and  b)  simple  integer  operations  are  very  fast.  The  following  diagram  depicts 
the  new  operator  component  complex  data  hierarchy  and  is  used  by  the 
SB_OPERATOR_COMPONENT_LIBRARY  class: 
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Figure  17  -  New  Software  Base  Operator  Component  Library 


Reg*  ellipses  represent  objects.  Shadowed  ellipses  represent  Dictionary  objects.  And 
rectangles  represent  Dictionary  keys.  Figure  17  depicts  a  storage  hierarchy  of  objects. 
All  objects  are  only  stored  once  in  a  distinct  physical  location.  References  to  those 
objects  can  tlien  be  stored  within  other  objects.  That  is  the  role  the  dictionaries  serve 
above.  Their  elements  are  actually  references  to  other  objects. 

d.  Addition  of  Type  Component  Input  and  Output  Signature  Dictionaries 
The  second  addition  was  to  add  the  type  component  input  and  output  signatures  as 
multi-attribute  keys.  They  provide  the  same  partitioning  and  are  stored  and  examined 
during  matching  in  the  same  manner  as  the  operator  component  signatures  described 
above.  One  important  difference  that  the  type  component  signatures  do  possess, 
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however,  is  that  they  are  actually  aggregates  of  the  individual  signatures  of  the  ADT 
operators  that  make  up  the  type  component.  As  aggregate  signatures,  they  serve  the 
useful  role  of  allowing  further  partitioning  without  inadvertently  overlooking  any 
potential  matches.  Software  base  components  that  match  aggregate  input  and  output 
signatures  with  the  query  component  have  shown  that  they  may  ultimately  match  the 
query  component.  However,  software  base  components  that  do  not  match  aggregate 
input  and  output  signatures  with  the  query  component  are  guaranteed  not  to  match  that 
query  component,  thus  eliminating  them  from  further  consideration.  Once  the  set  of 
potential  matches  has  been  filtered  via  the  use  of  aggregate  input  and  output  signatures, 
a  more  processing  intensive  mechanism  is  invoked  that  attempts  to  map  individual  ADT 
operators  between  the  query  and  software  base  components  and  perform  type  matching 
at  the  individual  operator  level.  It  is  in  this  process  that  the  final  determination  is  made 
whether  a  match  exists  or  not.  The  following  diagram  depicts  the  new  type  component 
complex  data  hierarchy  and  is  used  by  the  SB_ADT_COMPONENT_LIBRARY  class; 
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Note  that  the  multi-attribute  keys  for  the  number  of  input  and  output  parameters  are 
also  aggregate  values  derived  from  the  entire  set  of  ADT  operators.  For  example,  the 
total  number  of  input  parameters  is  obtained  by  adding  the  number  of  input  parameters 
of  each  ADT  operator  together.  The  keys  ADTs  and  Operators  represent  the  number  of 
ADTs  and  the  number  of  operators  in  a  type  component.  Refer  to  Section  FV.A  for 
more  detailed  definitions. 

3.  Using  PSDL  to  Specify  Components 

Although  the  standards  for  what  constitute  a  valid  PSDL  specification  are  strictly 
enforced  by  virtue  of  the  PSDL  grammar,  mles  for  writing  a  PSDL  specifications  for 
software  base  components  and  for  query  components  are  necessary  but  not  defined 
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anywhere.  This  is  an  initial  attempt  to  clarify  those  rules  through  requirements  and 
examples.  See  Appendix  B  for  exan^les. 
a.  General  Assumptions 

Certain  assumptions  made  by  the  syntactic  matt:hing  process  regarding  the  construction 
of  PSDL  specifications  are  listed  below.  These  assumptions  define  constraints  on 
writing  PSDL  specifications  for  components.  Even  though  these  constraints  cannot  all 
be  automatically  checked  at  the  present  time,  failure  to  abide  by  them  could  invalidate 
the  results  of  the  matching  process.  Many  of  the  assumptions  are  checked  during 
signature  encoding  and  most  violations  are  revealed  in  the  form  of  error  messages.  The 
general  assumptions  are  as  follows: 

•  Query  components  cannot  have  generic  parameters. 

•  Software  base  components  cannot  have  unrecognized  types.  This  means  that  a 
software  base  component  cannot  reference  an  external  user  defined  type. 

•  All  Array  types  will  use  the  identifiers  ARRAY_ELEMENT  and 
ARRAY_INDEX  for  their  component  parts.  These  identifiers  are  case 
sensitive  just  like  any  other  identifier  including  the  component  names  that  are 
stored  in  the  CAPS  software  base. 

•  The  order  of  all  operator  or  ADT  operator  input  and  output  parameters  will  be 
exactly  the  same  as  the  order  of  those  parameters  in  the  corresponding  Ada 
package  specifications  and  bodies.  This  requirement  is  necessary  for  not  only 
the  component  transformation  process  once  a  component  match  is  selected,  but 
more  importantly  for  the  final  generation  of  Ada  code  performed  by  the 
translator. 

The  last  assumption  specifically  applies  to  the  order  Ada  procedure  parameters  are 
declared  in  the  Ada  specification.  That  order  must  be  identical  to  the  order  the 
corresponding  parameters  are  declared  in  for  the  PSDL  specification. 
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b.  Generic,  ADT,  and  User  Defined  Type  Definitions 

There  are  also  several  assumptions  that  pertain  to  how  a  generic,  ADT  or  user 
defined  type  may  be  defined.  These  assumptions  are  outlined  below  and  then  discussed 
in  more  detail. 

•  All  generic  identifiers  must  be  defined  as  Ada  types.  They  may  not  reference 
user  defined  types  or  other  generics. 

•  A  user  defined  type  also  must  be  defined  as  an  Ada  type.  Its  one  difference 
from  generics  is  tiiat  if  a  user  defined  type  is  defined  as  an  Ada  array,  the 
components  of  that  array  may  be  defined  as  generic  types  or  other  user  defined 
types. 

•  All  generic  parameters  must  be  referenced  by  at  least  one  of  the  component's 
input  or  output  parameters.  Otherwise  instantiation  is  not  possible  and  any 
attempt  to  match  that  software  base  component  will  fail. 

•  Except  for  the  abstract  data  type  (ADT)  with  the  same  name  as  the  type 
component  that  defines  it,  all  of  the  other  type  component  ADTs  are  visiUe  cmly 
within  that  type  component. 

The  only  types  definitions  allowed  for  generic  parameters  are  Private,  Discrete,  Array, 
Digits,  Delta,  Range,  and  Access.  These  type  definitions  must  be  specified  explicitly. 
Neither  another  generic  parameter  nor  a  user  defined  type  can  be  referenced  by  a  generic 
parameter. 


There  are  actually  two  categories  of  user  defined  types.  A  type  component 
has  a  given  name  that  identifies  the  primary  abstract  data  type  the  component  describes. 
However,  it  may  also  have  some  abstract  data  types,  visible  only  to  elements  vrithin  the 
type  component,  that  follow  the  same  rules  for  definition  as  the  primary  ADT.  For 
instance,  the  type  component  for  Ring  in  Figure  23  makes  Ring  the  primary  ADT  ly 
using  it  to  name  the  component.  The  component  also  has  a  secondary  ADT  called 
Direction  that  must  be  defined  according  to  the  rules  established  for  any  user  defined 
type.  ADT  operator  input  and  output  parameters  within  Ring  may  be  defined  as  the 
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type  Direction,  but  parameters  of  operators  outside  the  Ring  component  may  not.  This 
is  a  current  limitation  of  this  implementation.  Ultimately,  these  secondary  ADTs  should 
be  visible  to  any  component  with  access  to  the  type  component  containing  secondary 
ADTs.  These  secondary  ADTs  are  also  discussed  in  Section  rV.A.4.e.  Section  rV.A.4.a 
and  Appendix  A  also  discuss  and  provide  examples  of  user  defined  types. 

c.  Input  and  Output  Parameter  Type  Definitions 

Certain  assumptions  have  been  made  for  specifying  what  is  acceptable  for 
input  and  output  parameter  type  definitions.  They  are  as  follows: 

•  Input  and  output  parameters  in  an  operator  component  may  be  deflned  in  terms 
of  the  component's  generic  types  (software  base  components  only),  other  user 
defined  types  in  the  prototype  specification  (this  obviously  excludes  software 
base  components  because  they  are  stored  with  their  component  PSDL 
specification  and  not  the  prototype  PSDL  specification),  or  Ada  types. 

•  ADT  operator  input  and  output  parameters  in  a  type  component  may  be  defined 
in  terms  of  the  component  or  ADT  operator's  generic  types  (software  base 
components  only),  other  user  defined  types  in  the  prototype  specification  (this 
again  excludes  software  base  components),  the  type  component’s  primary  ADT, 
secondary  ADTs,  or  Ada  types. 

d.  Query  by  PSDL  Specification 

Finally,  the  prototype  PSDL  specification  for  a  query  PSDL  specification  must 
include  specifications  of  all  user  defined  types  referenced  by  the  PSDL  query 
specification. 

4.  Using  the  PSDL  Grammar  With  User  Defined  Types 

PSDL  specifications  for  type  components  (also  referred  to  as  user  defined  types) 
can  have  one  or  more  ADT  in  them.  The  ADT  with  the  same  identifier  as  the  type 
component  name  is  considered  the  primary  ADT.  Other  PSDL  specifications  may  use 
input  or  output  parameters  that  reference  that  primary  ADT.  In  order  to  be  able  to 
recognize  the  Ada  type  of  parameters  that  reference  user  defined  types,  storing  the  Ada 
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type  of  an  ADT  became  necessary.  Within  the  PSDL  grammar,  the  non-terminal 
type  decl  is  used  to  house  this  information.  This  was  not  the  original  use  envisioned  for 
type  decl  by  the  original  abstract  model  for  the  PSDL  grammar,  but  seems  to  meet  the 
current  requirements  of  type  matching  without  incurring  negative  side  effects. 

5.  CAPS  Interface  Requirements 

When  a  PSDL  query  is  initiated  from  within  the  CAPS  graphic  or  syntax-directed 
editor,  two  files  must  be  present  in  the  current  working  directory  of  the  prototype 
designer.  The  first  file  is  the  PSDL  specification  for  the  entire  prototype  and  its  file 
name  must  be  prototype j)sdl _spec.txt.  The  second  file  is  specific  to  the  query 
component  and  its  file  name  must  be  either  type  j>sdl_spec.txt  or  operator  j)sdl _spec.txt 
depending  on  whether  it  is  a  type  or  operator  component  respectively.  The  reason  the 
prototype  PSDL  specification  file  is  necessary  is  to  facilitate  the  identification  of  the  Ada 
type  of  any  user  defined  types  in  the  prototype  that  the  query  component  may  reference. 
In  order  to  do  type  matching,  all  query  component  type  definitions  must  be  resolved  to 
their  corresponding  Ada  type. 

6.  Program  Flow,  Source  Code  Files,  and  Data  Files  for  Signature  Encoding 
and  Type  Matching 

The  program  flow  is  fairly  similar  for  operator  and  type  components,  as  well  as 
much  of  the  source  code  and  data  files.  First,  the  query  component  input  and  output 
signatures  are  encoded  by  using  the  information  in  the  prototype  designer's  current 
working  directory,  in  the  files  prototype _psdl_spec.txt  and  either  type _psdl_spec.txt  or 
operator _psdl_spec.txt.  The  encoded  signatures  are  then  stored  in  the  file  Signature.dat. 
Next,  the  type  matching  algorithms  read  Signature. dat  and  search  through  the  CAPS 
software  base,  looking  only  in  the  appropriate  partitions  and  checking  software  base 
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component  signatures  against  the  query  component  All  final  valid  matches  are  returned 
in  order  of  closest  to  farthest  match. 

a.  Operator  Component  PSDL  Query 

Here  is  a  diagram  of  the  process  flow  and  files  involved  with  an  operator 
component  PSDL  query: 
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Figure  19  -  Operator  PSDL  Query 

Ellipses  represent  data  files.  Three  dimensional  rectangles  and  cubes  represent  Ada  code 
and  the  object  shaped  like  a  plus  represents  C++  code.  Although  this  diagram  is 
intended  to  portray  the  process  flow  for  an  operator  component  PSDL  query,  the  two 
way  arrows  between  the  C++  code  and  the  CAPS  Software  Base  illustrate  that  the 
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process  is  very  much  the  same  for  component  storage  as  it  is  for  component  retrieval. 
The  only  real  difference  occurs  in  the  C++  code  located  in  the  left  parallelogram. 
b.  Type  Component  PSDL  Query 

The  type  component  code  incorporates  the  code  for  the  operator  continent 
query  because  type  components  can  contain  operators.  It  is,  however,  installed  in 
different  packages  in  order  to  incorporate  the  necessary  changes  and  additions  directly 
into  the  code.  Here  the  Signature. dot  file  contains  the  aggregate  signature  of  all  the  type 
component's  individual  operator  signatures.  Some  additional  Ada  and  C++  files  are 
added  to  deal  with  the  type  specific  signature  encoding  and  matching  routines.  Here  is  a 
diagram  of  the  process  flow  and  files  involved  with  a  type  component  PSDL  query; 


rototyp«_jMdi_«p«c.t]^ 


Ada  Souroa  Coda 


Ada_Rocognlzad_Typao_Pkg.a 

Add~Ada_TVpa_fo_SignkuraLa 

Encoda_AOT_Signaiura.a 

ADT_ParafnararJlarator_Pkg.a 

Stora_ADT_Slgnaluraa_in_Rla.i 


oparator_nama1.txt 


oparator_nanMX.txt 


/ 

CAPS 

Soflwara  Baao 

V 

(Ontoa) 

y 

80 


The  major  difference  from  the  operator  query  is  that  the  final  routines  for  Array 
matching  and  generic  instantiation  validation  are  not  available  in  diis  implementation. 
Another  difference  to  note  here  is  that  separate  signature  files  are  created  for  the  type 
component's  individual  operators  during  the  signature  encoding  process.  The  names  of 
these  data  files  are  the  operator  names  concatenated  with  ".txt"  as  the  file  extension. 
During  the  component  storage  process  these  files  are  used  to  load  the  signatures  of  the 
type  component  individual  operators  into  the  software  base.  During  component  query 
and  retrieval,  these  signature  files  are  nsed  to  ensure  that  mappings  of  individual 
operators  are  valid  matches. 

7.  The  PSDL  Ada  Data  Structure 

An  abstract  data  type  (ADT)  was  developed  in  Ada  that  allows  a  PSDL 
specification  to  be  represented  as  an  Ada  data  structure.  [Bayr91]  This  ADT  is  used 
extensively  by  the  Ada  packages  that  perform  signature  encoding.  Occurrences  of  this 
ADT,  also  called  a  PSDL  type,  represent  a  particular  PSDL  program  or  specification. 
There  are  a  host  of  Ada  packages  that  make  up  this  ADT  including  psdljo, 
psdljd _pkg,  psdl _program  j)kg,  psdl  component _pkg,  psdl  concrete  type _pkg, 
type  name j>kg,  and  type  declaration _pkg.  The  ADT  provides  a  data  structure  in 
which  to  store  all  of  the  elements  of  a  PSDL  program  (i.e.,  operators,  data  streams,  and 
their  associated  attributes)  along  with  the  valid  operations  that  allow  you  to  access  the 
ADT  elements.  The  psdljo  package  allows  you  to  perform  gets  and  puts  on  the  data 
structure.  Utilizing  the  "get"  procedure  you  can  pass  a  PSDL  source  file  (i.e.,  the  text  of 
a  PSDL  specification)  to  the  "get"  procedure,  it  parses  the  file  and  subsequently  loads 
the  ADT  data  structure,  and  then  specific  PSDL  information  can  be  accessed  via  the 
ADT  operations. 
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8.  Ordering  Retrieved  Components 

Whenever  more  than  one  software  base  component  match  is  found  for  a  query 
component,  it  is  desirable  to  return  a  listing  of  matched  software  base  components  in  an 
order  that  indicates  which  components  were  die  better  or  closer  match. 

a.  Operator  Component  Match  Ordering 

Because  the  number  of  input  parameters  must  match  exactly  for  a  valid  match, 
that  attribute  is  not  useful  for  ordering  matches.  The  first  criterion  for  ordering, 
therefore,  is  the  difference  in  the  number  of  output  parameters  between  the  query 
component  and  each  software  base  component  that  is  a  valid  match.  The  second 
ordering  criterion  is  the  type  closeness  difference.  The  type  closeness  for  the  software 
base  components  is  the  sum  of  the  type  closeness  of  each  input  and  output  parameter  to 
the  conesponding  parameters  in  the  query  component.  So,  for  example,  aU  matched 
software  based  components  with  the  same  number  of  output  parameters  as  the  query 
component  are  listed  first  followed  by  all  matched  software  based  components  that  have 
one  more  output  parameter  than  the  query  component,  and  so  on.  Within  a  group  of 
software  base  components  that  have  the  same  number  of  output  parameters,  the  ordering 
is  then  based  on  type  closeness  with  software  components  with  a  type  closeness  of  0 
listed  before  those  with  a  type  closeness  of  1  and  so  on. 

b.  Type  Component  Match  Ordering 

The  first  criterion  for  ordering  type  component  matches  is  the  difference  in  the 
number  of  ADTs  between  the  query  component  and  each  software  base  component  that 
is  a  valid  match.  The  second  ordering  criterion  is  the  difference  in  the  number  of 
operators.  So,  for  example,  all  matched  software  based  components  with  the  same 
number  of  ADTs  as  the  query  component  are  listed  first  followed  by  all  matched 
software  based  components  that  have  one  more  ADT  than  the  query  component,  and  so 
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on.  Within  a  group  of  software  base  components  that  have  the  same  number  of  ADTs, 
the  ordering  is  then  based  on  number  of  operators  with  software  components  with  the 
same  number  of  operators  as  the  query  component  listed  before  those  with  one  more 
operator  than  the  query  component  and  so  on.  Attributes  such  as  the  total  number  of 
operator  input  and  output  parameters  and  individual  operator  signatures  cannot  be  used 
in  the  ordering  scheme.  The  reason  for  this  is  although  an  operator  mapping  has  been 
found  for  the  type  component  that  guarantees  a  valid  match,  that  mapping  could  be  one 
of  many  possible  mappings  and  the  correct  or  best  mapping  is  not  known  at  this  point 

9.  Ada/C++  Interface  Issues 

Because  considerable  information  is  passed  back  and  forth  between  Ada  and 
C++  programs  during  signature  encoding  and  matching,  interface  issues  were  explored 
that  would  allow  a)  Ada  programs  to  call  C++  programs,  b)  C++  programs  to  call  Ada 
programs,  and  c)  Ada  and  C++  programs  to  share  parallel  data  structures.  All  the 
technical  problems  were  resolved  to  accomplish  these  three  goals.  However,  one 
technical  obstacle  proved  too  cumbersome  to  surmount.  Although  a  C++  program  can 
call  an  Ada  program,  Ada  programs  are  really  designed  to  be  the  main  running  program 
and  so  a  dummy  Ada  program  had  to  encapsulate  the  C++  program  for  everything  to 
work.  Rather  than  implement  in  this  manner,  we  chose  to  have  Ada  and  C++  programs 
pass  information  via  text  files. 

10.  Complexity  Issues  in  Matching  ADT  Operators,  Array  Components,  and 

Validating  Generic  Instantiations 

While  initial  ADT  matches  are  obtained  by  using  the  aggregate  input  and  output 
signatures  of  their  operators,  final  match  confirmation  cannot  be  done  without  finding  a 
mapping  between  the  query  and  software  base  component  ADT  operators  in  which  the 
individual  signatures  of  each  query  and  software  base  component  ADT  operator  pair 
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match.  Given  X  query  component  and  Y  software  base  component  ADT  operators,  the 
worst  case  number  of  combinations  to  explore  before  either  finding  a  valid  mailing  or 


determining  that  none  is  possible  would  be  on  the  order  of 


Although  diis  is 


essentially  a  combinatorial  problem  which  could  have  a  big  impact  on  processing  time, 
the  algorithm  for  finding  a  valid  mapping  is  able  to  do  consid^able  pruning  and  short 
circuiting  of  the  search  tree  thus  significandy  reducing  the  actual  order  of  complexity  to 
within  reasonable  processing  time  limits.  This  same  algorithm  is  used  for  matching  Array 
components  and  during  the  validation  of  a  generic  instantiation. 

11.  Encoding  Input  and  Output  Signatures 

Separate  encoding  schemes  for  input  and  output  signatures  have  been 
developed  that  can  be  used  with  both  operators  and  types.  Input  signatures  employ  a 
downward  encoding  scheme  so  that,  for  a  particular  parameter  type,  the  region 
representing  the  parameter  type  and  all  its  sub-regions  are  encoded  into  the  signamre. 
One  disadvantage  to  downward  encoding  is  the  possibility  of  false  matches,  discussed  in 
Section  rV.C.g.  Output  signatures,  on  the  other  hand,  employ  an  upward  encoding 
scheme  whereby,  for  a  particular  parameter  type,  the  region  representing  the  parameter 
type  and  all  its  super-regions  are  encoded  into  the  signature. 

One  subtle  point  to  highlight  with  operator  input  signatures  is  that  there  is  never 
any  concern  about  the  software  base  component  having  more  input  parameters  than  the 
query  component.  The  reason  is  because  the  initial  syntactic  matching  filtCT  described 
the  basic  operator  rules  in  Section  IV.B.l  will  eliminate  any  software  base  component 
with  a  different  number  of  input  parameters  than  the  query  component  from 
consideration  prior  to  the  employment  of  signature  matching  filters  [McDo91].  This  is 
important  because  it  provides  an  opportunity  to  use  the  upward  encoding  scheme  for 
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both  operator  input  and  output  signatures.  The  problem  is  that  we  sdll  cannot  use  the 
upward  encoding  scheme  for  type  input  signatures. 

Type  input  signatures  are  aggregates  of  all  the  input  parameters  of  the  type 
component's  operators.  Because  a  software  base  type  component  can  have  more 
operators  than  a  query  type  component,  it  is  possible  for  the  software  base  type  input 
signature  to  contain  more  input  parameters  than  a  corresponding  query  type  input 
signature.  If  an  upward  encoding  scheme  is  employed,  we  run  into  problems.  The  best 
way  to  demonstrate  why  is  through  the  following  examples  using  an  upward  encoding 
scheme  where  Region  1  is  Positive,  Region  2  is  Natural,  and  Region  6  is  Integer.  The 
first  example  we  look  at  is  of  two  output  parameters  and  the  software  base  component 
output  parameter  is  type  Positive  and  the  query  component  output  parameter  is  type 
Integer: 

Region  1  Region  2  Region  6 

sbc  1  1  1 

qc  0  0  1 

Here  we  see  that  the  query  component  signature  is  a  subset  of  or  "fits  inside"  the 
software  base  signature.  This  is  what  we  want  because  encoding  any  additional 
information  (i.e.,  extra  output  parameters)  into  the  software  base  component  signature 
will  not  affect  the  match.  Let  us  now  look  at  input  signatures  using  the  upward  encoding 
scheme  for  two  components  where  we  have  a  software  base  component  input  parameter 
of  type  Integer  and  a  query  component  input  parameter  of  type  Positive: 

Region  1  Region  2  Region  6 

sbc  0  0  1 

qc  1  1  1 
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The  first  inportant  thing  we  notice  is  that  in  order  to  compare  input  signatures  v«dien 
using  the  upward  encoding  scheme,  we  must  now  try  and  fit  the  software  base 
component  input  signature  into  the  query  component  input  signature,  die  reverse  of  what 
occurs  ivith  ouqiut  signatures.  This  is  the  root  of  the  problem  for  type  component  input 
signatures  encoded  with  the  upward  encoding  scheme.  The  two  input  signatures  in  the 
above  example  do  match,  but  as  soon  as  an  extra  software  base  component  input 
parameter  is  introduced,  that  software  base  component  input  signature  can  no  longer  be 
guaranteed  to  fit  inside  the  query  input  signature.  This  is  an  undesirable  situation  in 
which  a  valid  software  base  candidate  component  would  be  incorrecdy  eliminated  from 
further  consideration  because  of  a  failure  to  recognize  that  the  input  signatures  match. 
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V.  COMPONENT  INTEGRATION 


Once  a  user  has  selected  a  particular  software  base  component  that  matches  the 
provided  PSDL  query  specification,  the  software  base  component  must  be  integrated 
into  the  user's  prototype  working  directory.  An  integration  mechanism  has  been 
developed  for  operator  components.  The  integration  of  type  components  is  not 
implemented  in  this  thesis. 

A.  THE  PURPOSE  OF  COMPONENT  INTEGRATION 

The  CAPS  software  base  is  a  library  of  reusable  software.  It  includes  PSDL 
specifications,  Ada  specifications,  and  Ada  implementations  for  all  its  stored 
components.  The  purpose  of  component  integration  is  to  treat  the  software  base  as  a 
standard  Ada  library  and  use  the  Ada  "with"  clause  to  deal  with  software  base 
components  as  library  units  [Ada83].  This  way  the  software  base  source  code  is 
protected  from  any  external  modifications.  Hooks  from  the  user's  prototype  must  be 
provided  that  reference  and  provide  access  to  the  Ada  specification  that  corresponds  to 
the  selected  software  base  PSDL  specification,  and  these  hooks  are  implemented  by  the 
Ada  "with"  clause.  A  wrapper  package  is  built  to  incorporate  these  hooks.  The  file 
name  of  the  wrapper  package  is  always  operator  name _Pkg. a. 

In  order  to  successfully  integrate  the  selected  component  into  the  user's  working 
directory,  the  generation  of  the  wrapper  package  will  normaUy  require  some  degree  of 
transformation  of  the  software  base  component.  That  is  because  the  query  component 
and  the  software  base  component  may  have  numerous  differences.  Parameter  names 
may  be  different,  parameter  types  may  match  but  may  not  have  the  same  ordering  in  the 
software  base  and  query  components,  query  component  user  defined  types  may  need  to 


be  referenced,  and  type  declarations  may  need  to  be  made  for  special  cases  like 
composite  types.  Once  again,  the  transformation  is  effected  inside  the  wrapper  package. 
No  changes  are  made  to  the  software  base  component. 

Con^onent  integration  for  the  CAPS  software  base  was  ffrst  implemented  by  Dogan 
Qzdemir.  [Ozde92]  Ozdemir  provided  integration  in^lementations  for  software  base 
components  selected  by  browsing,  keyword  search,  and  PSDL  query.  This  diesis 
provides  an  implementation  of  component  integration  for  operator  PSDL  queries  only. 
In  doing  so,  it  removes  some  limitations  imposed  by  Ozdemir's  transformation  process. 
Those  limitations  include  (1)  an  assun^tion  that  the  order  of  input  and  output 
parameters  between  the  query  and  software  base  components  was  the  same,  (2)  partially 
built  generic  wrapper  packages  for  which  the  user  would  have  to  edit  the  wrapper  and 
enter  the  instantiations  once  the  transformation  was  finished,  (3)  use  of  the  Ada 
renaming  declaration  to  make  a  call  to  the  software  base  component  operator  which 
cannot  handle  incompatible  parameter  ordering,  and  (4)  an  assumption  that  user  defined 
types  would  not  be  used  to  define  input  or  output  parameters.  The  major  reason  these 
limitations  can  be  removed  is  due  to  manner  in  which  this  implementation  collects  the 
information  necessary  for  component  transformation.  Ozdemir  parsed  the  query  and 
software  base  PSDL  specifications  which  provided  him  with  a  fast  and  automated 
method  for  obtaining  critical  component  data,  but  with  great  difficulties  in  automating  a 
mapping  for  that  data.  This  thesis  provides  a  graphical  user  interface  that  presents  the 
key  component  data  for  both  components  to  the  user  and  allows  him/ha  to  select  the 
appropriate  mapping,  greatly  sin5)lifying  the  subsequent  transformation.  This 
transformation  process  will  be  discussed  in  more  detail  in  the  following  section. 
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B.  THE  COMPONENT  TRANSFORMATION  PROCESS 

The  component  transformation  process  is  provided  to  adapt  the  software  base 
component  to  the  format  required  by  the  query  PSDL  specification.  It  consists  of  two 
main  steps.  First,  a  mapping  between  query  and  software  base  input  and  output 
parameters  must  be  determined.  And  second,  a  wrapper  package  is  created  based  on  the 
mapping  information.  Figure  21  below  gn^hically  illustrates  the  con^nent 
transformation  process: 


Ada  Source  Code 


Ada_Recognized_Typee_Pkg.a 

Detennine_Ada_TV^_Pkg.a 

Paramater_Mapplng_PI(g.a 

Parama(er_U«t_Pkg.a 

Paraniatei2Jterator_Pkg.a 

Craate_Operitor_ParanMter_Files.a 


qyeJnputjMrBmeter8.txt 
qyc_output_parametef*.txt 
sbcJnput_parafiiaterB.txt 
abe_oulputjparametei«.txt 
8bcjganerjcj>atamatara.txt  1 


Ada  Source  Code 


Ada_Recognized_Types_Pkg.a 
Paramoter_Mapping_Pkg.a 
Paramoter_Ust_Pkg.a 
Buld_Operator_Wrapper_Pkg.a|/ 


operator_naino_Pkg.a 


SBC 

Generic 


QC 
Input 
Paramalei 


SBC 
Input 
Paramater 


QC 

Output 
Paramatei 


SBC 
Output 
Paramater 


Figure  21  -  Operator  Component  Transformation  Process 

The  parallelograms  depicted  in  Figure  21  represent  TAE  graphical  user  interface  (GUI) 
display  items  [NASA91].  The  GUI  is  discussed  in  detail  in  Section  VI.  User  inteaction 
with  the  GUI  builds  the  necessary  parameter  map.  The  map  is  then  used  by  an  Ada 
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routine  that  generates  a  wrapper  package  that  is  stored  in  the  user’s  prototype  working 
directory.  The  operator  component  transformation  process  is  now  described  in  more 
detail. 

1.  Mapping  The  PSDL  Specifications 

As  portrayed  by  Figure  21,  Ada  program  parses  both  the  query  and  software  base 
component  PSDL  specifications,  breaking  the  specifications  down  by  parameter  category 
(input,  output,  and  generic)  and  storing  that  information  in  separate  text  files  category 
for  each  component.  These  text  files  serve  as  the  basis  for  the  user  driven  parameter 
mapping  and  are  loaded  into  TAE  display  items  for  viewing  and  mapping  selection.  To 
simplify  the  mapping  task  for  the  user,  all  parameter  types  are  defined  in  terms  of  dieir 
corresponding  Ada  type.  So,  for  example,  if  the  query  component  input  parameter 
(^In_Parameterl  was  defined  by  the  user  defined  type  Index,  and  Index  was  defined  as 
the  Ada  type  Range,  then  the  user  would  see  "0_In_Parameterl  :  Range"  as  one  of  the 
selections  in  the  query  component  input  parameter  TAE  display  item. 

The  query  and  software  base  component  input  and  output  parameter  TAE  display 
items  are  all  interactive.  The  user  creates  the  parameter  map  selecting  a  parameter 
from  a  query  input  or  output  TAE  display  item  and  then  selecting  the  corresponding 
parameter  from  the  corresponding  software  base  TAE  display  item.  A  type  check  is 
made  to  ensure  that  the  two  selected  parameters  match  correctly.  If  they  do  not,  an 
error  message  is  generated  and  the  user  must  make  a  new  selection.  If  the  two  selected 
parameters  match,  then  that  selection  is  added  to  the  parameter  map  and  the  two 
parameters  are  removed  from  the  selection  lists.  A  software  base  component  parameter 
in  the  TAE  display  item  that  is  preceded  by  the  expression  {G}  informs  the  user  that  the 
parameter  is  defined  a  generic  parameter.  When  the  user  attempts  to  map  a  query 
component  parameter  to  a  software  base  component  parameter,  a  check  is  matte  during 
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type  matching  to  see  whether  the  software  base  component  parameter  is  defined  by  a 
generic  parameter.  If  it  is,  then  there  are  two  possible  cases  that  the  match  process  must 
deal  with.  The  first  case  is  that  the  generic  parameter  has  been  instantiated  and  for  that 
case  the  match  process  must  ensure  that  the  query  component  parameter  matches  the 
instantiation.  The  second  case  is  that  the  generic  parameter  has  not  been  instantiated  and 
so,  as  a  byproduct  of  the  match  process,  the  generic  parameter  must  be  instantiated  by 
the  query  component  parameter. 

Unlike  the  input  and  output  parameter  TAE  display  items,  the  software  base 
component  generic  parameter  and  parameter  mapping  TAE  display  items  are  passive. 
The  user  can  view  their  contents,  but  does  not  interact  with  them.  The  parameter 
.mapping  TAE  display  item  is  updated  as  each  selected  parameter  pair  is  validated  as 
matching  correctly. 

Although  automating  the  parameter  mapping  process  to  eliminate  user  interaction 
would  speed  up  the  integration  and  transformation  of  selected  components,  without  a 
semantic  matching  capability  it  is  an  unrealistic  goal.  It  is  quite  possible  that  a  selected 
software  base  component  may  have  numerous  valid  mappings  with  the  query  component 
One  of  the  limitations  of  syntactic  matching  is  its  inability  to  use  sonantics  to  determine 
the  appropriateness  of  a  particular  mapping.  For  example,  suppose  we  have  the 
following  PSDL  specifications  for  input  and  ouqiut  parameters  of  the  query  and  software 
base  component: 
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Query  CcHnpotioit  Parameters: 

Input 

Costs  :  INTEGER, 

Revenues  :  INTEGER 

Output 

Profits  :  INTEGER 

Software  Base  Component  Parameters 
Input 

Sales  :  INTEGER, 

Expenses  ;  INTEGER 

Output 

Income  :  INTEGER 

Figure  22  •  Effect  of  Semantics  on  Automating  Parameter  Mapping 

Examining  the  two  sets  of  input  parameters  in  Figure  22,  we  see  that  either  of  the 
following  two  mappings  is  syntactically  correct: 

Mapping  1: 

Costs  ->  Expenses 
Revenues  ->  Sales 
Mapping  2: 

Costs  ->  Sales 

Revenues  ->  Expenses _ 

Figure  23  -  Possible  Input  Parameter  Mappings 
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Figure  22  provides  a  simple  example  of  specifications  for  the  calculation  of  an 
organization's  profits  based  on  its  costs  and  revenues.  We  know  that  the  desired 
mapping  from  Figure  23  is  Mapping  1,  but  that  knowledge  is  based  on  undostanding  the 
smiantics  behind  the  parameter  identifiers  Costs,  Expenses,  Revenues,  and  Sales. 
Syntactic  matching  does  not  have  access  to  tius  semantic  knowledge  and  therefore  views 
both  mappings  as  equally  valid.  This  problem  is  extended  to  the  selection  of  the  correct 
instantiation  in  the  case  of  a  generic  software  base  component  Therefore,  we  have 
incorporated  user  interaction  in  the  mapping  process  to  provide  the  semantic  reasoning 
that  would  otherwise  be  unavailable  with  automatic  component  integration. 

2.  Generating  the  Wrapper  Package 

The  wrapper  package  serves  as  the  bridge  between  the  software  base  component 
and  the  user's  PSDL  specification.  The  transformation  or  translation  of  the  software 
base  component  PSDL  specification  as  prescribed  by  the  query  component  PSDL 
specification  is  embedded  into  the  wrapper  package.  Important  aspects  of  the 
transformation  process  for  generating  a  wrapper  package  are  described  below. 
Examples  of  wrapper  packages  generated  for  generic  and  non-generic  software  base 
components  are  provided  in  Appendix  C. 

a.  Incorporating  the  Ada  With  Clause 

The  Ada  "with"  clause  provides  access  to  the  software  base  component  library 
unit.  If  user  defined  types  are  present  in  the  query  component  PSDL  specification,  then 
other  library  units  must  also  be  referenced.  A  user  defined  type  is  defined  in  the 
prototype  PSDL  specification  as  a  separate  type  with  its  own  Ada  implementation.  The 
library  unit  that  represents  the  Ada  implementation  of  the  user  defined  type  is  what  must 
be  accessed  using  a  "with"  clause  in  order  to  make  the  user  defined  type  visible  inside  the 
wrapper  package.  Using  Figure  27  as  an  example,  let  us  suppose  that  the  query 
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component  PSDL  specification  for  the  operator  Pick_A_Card  has  a  parameter  that  is 
defined  by  a  user  defined  type  named  Card.Deck.  Based  on  in9)lementation  naming 
conventions,  we  know  that  the  Ada  implementation  of  Card.Deck  must  be  called 
Card_Deck_Pkg.  Therefore,  during  the  generation  of  the  wrapper  package,  the 
statement  "with  Qud_Deck_Pkg;"  will  be  included  and  any  reference  to  the  user  defined 
type  will  be  embedded  as  "Card_Deck_Pkg.Card_Deck"  in  the  wrapper  package.  This  is 
done  for  all  user  defined  types  referenced  in  the  query  component  PSDL  specification. 
h.  Parameter  and  Type  Declarations 

Parameter  declarations  are  first  made  in  the  subprogram  specification. 
[Ada83]  The  Ada  language  only  allows  predefined  types  to  be  used  widiin  parameter 
declarations.  A  predefined  type  may  be  either  a  type  predefined  by  Ada  or  a  user  defined 
type.  If  a  parameter  type  in  the  query  PSDL  specification  is  either  a  predefined  Ada  type 
or  a  user  defined  type  then  its  incorporation  into  the  wrapper  package  when  creating  the 
operator  specification  is  very  simple.  Either  it  is  used  exactly  as  defined  in  the  case  of  an 
Ada  predefined  type,  or  a  reference  is  made  to  the  package  that  defines  it  as  described  in 
Section  V.B.2.a  above  in  the  case  of  a  user  defined  type.  However,  in  some  cases,  the 
query  component  parameter  type  may  not  be  an  Ada  predefined  type  or  a  user  defined 
type,  but  may  actually  be  defined  by  the  query  PSDL  specification.  Array  types  provide 
a  good  example.  Let  us  look  at  the  operator  Bubble_Sort  in  Figure  30.  It  provides  a 
complete  type  definition  for  the  parameter  The_In_Array.  However,  this  definition 
cannot  be  used  in  its  exact  form  when  writing  the  subprogram  specification  for 
Bubble_Sort  into  the  wrapper  package.  Instead,  a  type  declaration  must  be  embedded  in 
the  wrapper  package  defining  the  type  of  The_In_Array  before  the  Bubble_Sort 
subprogram  specification  is  written.  The  Bubble_Sort  subprogram  specification  will  then 
reference  the  type  declaration.  As  a  naming  convention,  the  identifier  for  the  type 
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declaration  will  be  the  name  of  the  relevant  parameter  concatenated  with  the  base  type  of 
the  type  declaration.  If  the  base  type  of  the  type  declaration  was  Array,  then  "_ARRAY" 
would  be  concatenated  to  the  name  of  the  parameter  that  necessitated  the  type 
declaration.  A  snapshot  of  the  wrapper  package  containing  the  necessary  type 
declarations  and  subprogram  specification  for  Bubble_Sort  is  provided  in  the  following 
figure: 

type  The_In_Array_ARRAY  is  array  (Index_Pkg.Index)  of  CHARACTER; 
type  The_Out_Array_ARRAY  is  array  (Index_Pkg.Index)  of  CHARACTER; 
procedure  Bubble_Sort  (The_In_Array  :  in  The_In_Array_ARRAY; 

_ The_Qut_ Array  :  out  The_Out_Array_ARRAY); 

Figure  24  •  Example  of  Required  Type  Declaration 

c.  Procedure  Calls  to  Invoke  Software  Base  Component  Operators 

Ada  provides  two  methods  to  caU  a  procedure  defined  in  the  specification  of  a 
package.  [Ada83]  The  first  and  more  direct  method  is  the  renaming  declaration.  A 
renaming  declaration  allows  you  to  give  a  procedure  in  a  referenced  external  package  a 
new  name  and  then  use  the  new  name  locally  to  access  the  external  procedure.  This 
could  be  employed  in  conjunction  with  generating  a  wrapper  package  by  renaming  the 
procedure  corresponding  to  the  software  base  component  operator  with  the  name  of  the 
query  component  operator.  AU  local  calls  to  the  query  component  operator  procedure 
invoke  the  software  base  operator  procedure  which  is  exactly  the  outcome  desired. 
However,  the  renaming  declaration  is  subject  to  stringent  constraints  that  require  the 
renaming  declaration  to  use  the  pre-established  ordering  of  parameter  declarations  in 
both  the  software  base  and  query  component  operators.  With  this  restriction,  we  run 
into  two  potential  problems.  First,  the  order  of  the  two  sets  of  parameter  declarations 
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may  not  match  up  by  type,  in  which  case  the  Ada  conq>iler  will  reject  the  rouiming 
declaration.  And  second,  the  order  of  the  two  sets  of  parameter  declarations  may  not 
match  up  semantically  (as  discussed  in  Section  V.B.l),  in  which  case  the  Ada  con^iler 
will  accept  the  renaming  declaration,  but  the  logic  of  the  generated  wrapper  will  be  faulty 
(i.e.,  we  could  have  Costs  mapped  to  Sales  and  Revenues  mapped  to  Expenses  as 
described  in  Figure  23). 

Because  we  cannot  assume  that  the  order  of  parameters  in  the  software  base  and 
query  component  operators  will  always  be  exacdy  what  is  required  (in  fact  the  ideal  of  a 
perfect  match  will  likely  be  very  rare),  a  second  less  direct  method  is  employed  to  call 
the  procedure  associated  with  the  software  base  component  operator.  This  method 
requires  implementing  the  procedure  that  defines  the  query  component  operator.  Since 
an  implementation  is  involved,  the  wrapper  package  must  be  extended  firom  a  package 
specification  to  the  inclusion  of  a  package  body  as  well.  It  is  within  the  package  body 
that  the  implementation  of  the  query  component  operator  is  defined.  This  definition 
consists  of  two  primary  parts;  the  subprogram  implementation  and,  within  that 
implementation,  the  call  to  the  software  base  component  operator  procedure. 
Incorporating  the  subprogram  implementation  into  the  wrapper  package  body  is  identical 
to  the  previously  described  process  for  handling  the  subprogram  specification  with  only 
minor  formatting  differences.  Calling  the  software  base  component  operator  procedure 
is  the  second  important  part  of  the  subprogram  implementation.  Because  the  parameter 
mappings  have  already  been  established  by  the  user,  its  incorporation  into  the  wrapper 
package  is  straightforward.  If  the  software  base  component  is  non-generic  then  the 
software  base  component  package  name  is  used  as  a  prefix  to  the  procedure  call.  If  the 
software  base  component  is  generic  then  the  name  of  the  instantiation  of  the  software 
base  component  package  is  used  as  a  prefix  to  the  procedure  call.  The  only  factor  that 
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complicates  incorporating  the  procedure  call  to  the  software  base  component  operator 
is  the  case  in  which  the  software  base  component  has  more  output  parameters  then  the 
query  component.  That  situation  is  discussed  in  the  next  section. 

d.  Excess  Output  Parameters  in  the  Software  Base  Component 

The  software  base  component  is  allowed  to  have  a  greater  number  of  output 
parameters  then  the  query  component.  If  that  is  the  case,  then  dummy  variables  must  be 
created  to  be  used  as  actual  parameters  when  making  the  procedure  call  to  the  software 
base  component  operator.  Incorporating  the  dummy  variable  declarations  into  the 
wrapper  package  body  is  straightforward  unless  the  parameter  type  of  the  unused  output 
parameter  is  not  a  predefined  Ada  type.  If  not,  then  a  type  declaration  may  have  to 
precede  the  variable  declaration.  One  of  two  cases  is  possible  when  the  unused  output 
parameter  is  not  a  predefined  Ada  type.  In  the  first  case  the  unused  output  parameter  is 
defined  by  a  generic  parameter.  If  that  is  the  case,  then  the  generic  parameter  has  been 
instantiated  with  a  query  component  parameter  type  that  is  either  a  predefined  Ada  type, 
a  user  defined  type,  or  was  defined  with  a  type  declaration.  The  actual  parameter  used 
for  the  instantiation  is  used  to  define  the  unused  output  parameter  for  the  first  case.  The 
second  possible  case  is  that  the  unused  output  parameter  is  defined  by  the  software  base 
component's  PSDL  specification.  In  that  case,  a  type  declaration  must  precede  the 
variable  declaration  for  that  unused  output  parameter.  The  type  declaration  is  created  in 
the  same  manner  described  in  Section  V.B.2.b  above.  The  name  of  each  unused 
software  base  component  output  parameter  is  concatenated  with  "_DUMMY"  to 
produce  an  identifier  for  its  corresponding  dummy  variable. 
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e.  Generic  instantiation 

If  a  software  base  component  is  generic  then  it  must  be  instantiated  widiin  the 
wrapper  package.  This  is  straightforward  because  the  instantiations  have  already  been 
defined  during  the  parameter  mapping  process  described  in  Section  V.A.  The  actual 
parameters  used  in  the  instantiation  will  depend  on  how  the  type  of  the  query  con^wnent 
parameter  responsible  for  the  instantiation  is  defined.  Thus,  the  actual  parameter  for  the 
instantiation  could  be  a  predeftned  Ada  type,  defined  by  a  type  declaration,  or  a  reference 
to  a  user  defined  type.  The  naming  convention  utilized  for  the  instantiation  attaches 
"TMP_"  to  the  front  of  the  query  component  operator  name  and  "_PKG"  to  the  end  to 
produce  the  instantiation  name.  So,  for  example,  if  the  query  component  operator  name 
is  Bubble_Sort  then  the  name  of  the  generic  instantiation  of  the  corresponding  generic 
software  base  component  would  be  TMP_Bubble_Sort_PKG.  Examples  of  all  aspects 
of  generating  a  wrapper  package  are  provided  in  Appendix  C. 
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VI.  GRAPHICAL  USER  INTERFACE 


The  original  CAPS  software  base  graphical  user  interface  (GUI)  was  developed  by 
Dogan  Ozdemir.  [Ozde92]  This  thesis  makes  two  primary  changes  to  Qzdemir's  GUI. 
First,  all  software  base  maintenance  routines  are  removed  from  the  GUI.  Second,  a  new 
interface  is  provided  for  the  integration  of  software  base  operator  components. 

A.  SOFTWARE  BASE  MAINTENANCE  ROUTINE  REMOVAL 

Maintenance  routines  for  the  CAPS  software  base  include  adding,  deleting  and 
updating  components  and  language  libraries.  While  these  are  important  functions 
necessary  for  the  successful  management  of  the  CAPS  software  base,  we  do  not  believe 
that  a  user  working  to  develop  a  prototype  should  have  access  to  these  capabilities.  A 
user  should  only  be  concerned  with  acquiring  reusable  components  from  the  software 
base.  The  actual  administration  of  the  software  base  should  be  a  separate  module  with 
access  limited  to  the  software  base  manager.  Therefore,  all  routines  that  relate  to  the 
management  of  the  CAPS  software  base  have  been  removed  from  the  GUI  that  supports 
the  prototype  developer. 

B.  OPERATOR  COMPONENT  INTEGRATION 

The  only  major  addition  to  Ozdemir's  GUI  is  the  inclusion  of  a  GUI  panel  for  the 
parameter  mapping  necessary  for  the  integration  of  a  software  base  operator  component. 
[Ozde92]  All  other  GUI  panels  were  designed  and  implemented  by  Ozdemir.  Minor 
modifications  were  made  to  two  of  Ozdemir's  GUI  panels.  The  Component  selection 
which  allows  a  user  to  add  or  update  software  base  components  was  removed  from  the 
Main  Menu  Panel.  And  the  Delete  selection  that  allows  a  user  to  delete  software  base 
components  was  removed  from  the  Select  Panel.  Some  modifications  were  also  made  to 
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some  of  the  Ada  code  that  Qzdemir  added  to  the  TAB  generated  Ada  code  [NASA91]. 
These  modifications  pertain  to  the  addition  of  signatures,  type  matching,  array  matching, 
and  generic  instantiation  validation  to  the  PSDL  query  process. 

The  following  figure  illustrates  the  new  parameter  mapping  panel: 


A  detailed  description  of  how  a  user  performs  parameter  mapping  in  the  above 
Parameter  Mapping  Panel  is  provided  in  Section  V.B.l.  To  summarize,  the  user  moves 


the  mouse  over  a  query  component  input  or  output  parameter  and  then  clicks  the  mouse 
button  to  select  that  parameter.  The  process  is  repeated  for  a  corresponding  software 
base  parameter.  Once  the  software  base  parameter  is  selected,  the  two  selected 
parameters  are  checked  to  ensiue  they  match.  A  valid  match  will  cause  both  selections 
to  be  erased  from  their  respective  TAB  display  items  and  written  to  the  Parameter  Map 
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TAE  display  item.  An  invalid  match  will  cause  a  warning  message  to  be  displayed  and 
the  user  will  then  have  to  modify  his/her  selections.  Once  all  query  input  or  output 
parameters  have  been  selected,  that  particular  query  TAE  display  item  and  corresponding 
software  base  TAE  display  item  will  be  dimmed.  It  is  important  that  the  user  be  able  to 
freely  select  from  either  the  input  or  output  parameters  without  having  the  order  of 
selection  imposed  in  any  form.  The  reason  for  this  is  that  order  of  selection  is  important 
for  correct  generic  instantiation. 

The  figure  below  shows  the  Parameter  Mapping  Panel  after  a  valid  selection  of  two 
parameters  from  Figure  25  is  made: 


Note  that  two  selections  have  been  removed  from  their  corresponding  TAE  display  items 
in  Figure  25  and  their  mapping  has  been  recorded  in  the  Parameter  Mapping  Tae  display 
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item  (Figure  26).  When  all  query  component  parametns  have  been  mapped  successfully, 
generation  of  the  wrapper  package  and  wrapper  package  body  is  automatically  initiated. 
The  user  is  retimied  to  the  main  menu  upon  completion  of  wrapper  generation.  If  the 
selection  of  a  particular  mapping  does  not  instantiate  all  the  generics  then  an  error 
message  will  be  display  and  the  user  will  be  prompted  to  try  another  miq)ping.  In  s(»ne 
cases  the  user  may  select  an  incorrect  partial  mapping  that  will  not  allow  any  of  the 
remaining  parameters  to  be  matched.  In  diis  case,  the  Clear  button  can  be  used  to  clear 
the  partial  mapping  and  allow  the  user  to  start  the  parameter  mapping  process  from  the 
beginning.  The  Cancel  button  allows  a  user  to  terminate  parameter  mapping  at  any 
point.  Hie  user  will  then  be  returned  to  the  previous  menu.  Finally,  the  Help  button 
provides  information  on  the  parameter  mapping  process  and  all  selection  buttons  in  the 
panel. 

One  limitation  has  been  discovered  with  TAE  selection  lists.  They  are  limited  to  a 
maximum  of  80  characters.  This  could  lead  to  problems  when  mapping  input  and  output 
parameters.  Some  abbreviated  naming  conventions  have  been  adopted  to  minimize  this 
limitation.  First,  {G}  is  used  to  signify  that  a  software  base  component  parameter  is 
defined  by  a  generic.  And  second,  AE  and  AI  are  used  as  abbreviations  for 
ARRAY_ELEMENT  and  ARRAY_INDEX  respectively.  These  abbreviations  only 
a^ply  to  the  information  displayed  in  the  TAE  display  items.  PSDL  specifications 
require  the  full  identifier  names.  Another  strategy  to  work  around  this  limitation  is  to 
keep  parameter  identifiers  short 
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vn.  CONCLUSIONS  AND  FUTURE  RESEARCH 


This  tfiesis  has  described  and  implemented  reliable  automated  assistance  for  finding 
reusable  components  from  a  large  repository  of  existing  software.  Starting  with  die 
existing  CAPS  software  base  implementation  originally  developed  McDowell  and 
improved  by  Ozdemir,  this  thesis  has  further  improved  the  component  retrieval  and 
integration  capabilities  of  the  CAPS  software  base  (1)  implementing  parameter  type 
matching,  (2)  extending  the  filtering  process  underlying  the  software  base  sdiema  to 
further  partition  the  component  retrieval  search  space,  (3)  providing  generic  instantiation 
validation  as  part  of  the  operator  component  matching  process,  and  (4)  removing  many 
of  the  limitations  from  the  previous  operator  component  integration  process  [McDo91, 
Ozde92].  The  task  of  automating  the  entire  process  from  component  retrieval  through 
integration  has  been  described  and  successfully  implemented  for  operator  components. 

Perhaps  the  most  significant  lesson  learned  at  the  end  of  this  thesis  is  the  imparlance 
of  i  formally  defined  model  for  software  reuse.  A  formal  strategy  for  designing  and 
engineering  software  base  components  specifically  for  reuse  are  crucial  because  the 
specifications  of  these  components  serve  as  the  basis  for  component  retrieval.  Some  of 
the  issues  that  should  be  resolved  and  then  formalized  are  discussed  in  Section  Vn.A 
below. 

The  development  of  this  implementation  has  highlighted  the  important  role 
semantics  plays  in  the  component  parameter  mapping  process.  Only  by  incorporating 
sonantics  can  automatic  component  parameter  mapping  take  place  without  the  need  for 
user  interaction.  While  former  limitations  were  removed,  and  accuracy  and  ^Gcioicy 
increased,  this  implementation  is  far  from  complete.  There  are  still  limitations  imposed 
by  this  implementation  as  well  as  numerous  areas  in  which  the  implementation  can  be 
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extended.  The  following  sections  identify  those  areas  where  inqvovements  can  be 
made  and  in  some  cases  suggestions  are  provided  for  accon^lishing  diose 
improvements. 

A.  DEVELOP  A  FORMAL  MODEL  FOR  SOFTWARE  REUSE 

It  is  difficult  to  come  up  with  a  clean  inplementation  of  a  comptment  retrieval 
mechanism  if  there  is  no  formal  model  defining  the  process  of  software  reuse.  That  is 
because  the  software  reuse  model  explicitly  defines  the  boundaries  of  the  problem.  In 
the  context  of  CAPS,  this  model  must  address  the  capabilities  and  limitations  of  the 
CAPS  translator,  the  CAPS  software  base,  PSDL,  and  the  Ada  language  (for  the  current 
implementation).  Issues  such  as  the  treatment  of  user  defined  types,  composite  types, 
constrained  and  unconstrained  types,  and  what  can  and  caimot  appear  in  software  base 
or  query  component  specifications  must  be  examined  together,  because  decisions  made 
for  one  issue  will  ultimately  have  some  impact  on  most  other  issues.  Suggestions  for 
how  to  deal  with  some  of  these  issues  are  outlined  below  and  are  further  discussed  later 
in  Section  VII. 

1.  User  Defined  Types 

It  appears  that  the  cleanest  treatment  of  user  defined  types  (UDT)  is  to 
encapsulate  them  into  abstract  data  types,  declare  them  as  Private  types,  and  store  them 
as  type  components  in  the  software  base.  Thus,  a  data  structure  is  provided  as  well  as  all 
operations  required  to  gain  access  to  and  process  the  information  embedded  in  the  data 
structure.  This  will  become  powerful  once  this  implennen^tion  is  modified  to  allow 
software  base  components  to  reference  UDTs  within  the  software  base  (see  Section 
Vn.D).  Perhaps  a  tool  could  be  developed  that  would  serve  as  a  generic  template  for 
building  common  classes  of  UDTs. 
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2.  Type  Constraints 

The  issue  of  whether  a  parameter  type  is  constrained  or  umxHistrained  becomes 
in^rtant  v^en  ^nerating  Ada  code  from  PSDL  ^wdfications.  Both  the  CAPS 
translator  and  the  compcment  integration  process  generate  Ada  code.  One  solution 
might  be  to  provide  constraint  infrmnation  within  PSDL  (see  Section  VILF.5).  User 
defined  types  could  be  used  to  provide  prototype  designer  defined  constraints.  The 
safest  solution  is  to  require  all  constraints  to  be  passed  as  instantiations  of  generic 
parameters.  However,  this  approach  may  be  more  limiting. 

3.  Relating  PSDL  to  Ada 

Decisions  need  to  be  made  regarding  what  kinds  of  Ada  type  declarations  wiU  be 
aUowed  in  PSDL  specifications.  The  rules  will  likely  be  differait  for  software  base  and 
query  components.  For  example,  we  have  already  q)ecified  that  query  continents 
cannot  have  generic  parameters.  In  some  cases  it  may  be  hdpful  for  PSDL  parameter 
type  names  to  be  different  than  their  corresponding  Ada  type  names.  Suggested 
conventions  are  made  for  the  following  types  that  should  only  appear  in  generic 
parameter  declarations  (i.e.,  not  input  or  output  parameter  declarations); 

•  Ada  type  name  =  Private,  PSDL  type  name  =  PRrVATE_TYPE 

•  Ada  type  name  =  Discrete,  PSDL  type  name  =  DISCRETE_TYPE 

•  Ada  type  name  =  Enumeration,  PSDL  type  name  =  ENUMERATION_TYPE 

•  Ada  type  name  =  Access,  PSDL  type  name  =  AC(rESS_TYPE 

The  following  suggestions  are  made  for  other  types  that  may  or  may  not  appear  as 
generic  parameter  declarations: 
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•  Ada  type  name  =  Array,  PSDL  type  name  *  ARRAY_TYre 

•  Ada  type  name  s  Digits,  PSDL  type  name  =  DIGITS^TYPE 

•  Ada  type  name  =  Delta,  PSDL  type  name  =  DELTA^TYPE 

•  Ada  type  name  =  Range,  PSDL  type  name  =  RANGE_TYPE 

Record  types  present  their  own  unique  concerns  because  Ada  does  not  have  any 
treatment  for  generic  formal  record  types.  The  suggested  solution  is  to  allow  query 
component  Record  parameter  types  to  only  be  matched  to  a  software  base  con^nent 
generic  Private  type.  In  this  manner,  software  base  conq)onent  Record  structures  can  be 
encapsulated  into  abstract  data  types.  This  also  eliminates  a  potential  technical  concern. 
The  strong  typing  facilities  of  Ada  treat  two  Records  with  identical  structures  as  two 
different  types.  This  could  create  problems  with  the  compilation  of  automatically 
generated  code. 

B.  POPULATE  THE  SOFTWARE  BASE 

Although  commercial  Ada  software  component  libraries  exist,  and  new  software 
repositories  within  the  Department  of  Defense  are  starting  to  come  on-line,  the  CAPS 
software  base  is  still  very  under-populated.  Adding  components  to  the  CAPS  software 
base  is  a  labor  intensive  process.  The  primary  reason  for  this  is  that  a  PSDL  q)ecification 
must  be  written  for  any  Ada  component  added  to  the  software  base.  In  addition,  certain 
limitations,  like  the  inability  to  handle  the  "in  out"  parameter  mode  eliminate  many 
candidate  components. 

One  tool  that  would  help  resolve  this  problem  is  an  automated  translation  tool  that 
could  take  an  Ada  specification  as  input  and  generate  the  corresponding  PSDL 
specification.  Ideally,  this  translation  tool  could  include  some  sort  of  conversion  of  Ada 
specifications  that  use  "in  out"  parameters  to  an  equivalent  form  that  CAPS  can  use. 


106 


C.  DEVELOP  A  SOFTWARE  BASE  MANAGEMENT  GUI 

It  is  necessary  for  a  separate  GUI  to  be  developed  for  the  management  of  the  CAPS 
software  base.  Access  to  management  filiations  such  as  language  library  creation  or 
component  add,  delete,  and  update  should  be  carefully  controlled  since  these  functions 
have  a  direct  effect  on  the  composition  of  the  CAPS  software  base  which  in  turn  is 
utilized  by  a  diverse  group  of  users.  The  original  GUI  designed  and  in^lemented  by 
Ozdemir  already  incorporates  most  of  these  functions,  so  the  task  of  in^lonenting  a 
separate  software  base  management  GUI  should  not  be  a  difficult  one  [Ozde92]. 

D.  EXTEND  USER  DEFINED  TYPES  TO  THE  SOFTWARE  BASE 

Allowing  components  added  to  the  software  base  to  reference  user  defined  types 

already  in  the  software  base  will  significantly  increase  the  usefulness  of  the  CAPS 
software  base.  So,  for  example,  let  us  say  that  we  are  encoding  the  signature  of  an 
operator  component  as  a  precursor  to  adding  that  component  to  our  software  base.  At 
some  point  we  reach  an  input  parameter  In_Param  of  type  Shipboard_Navigation. 
Shipboard.Navigation  is  not  a  predefined  Ada  type,  and  it  is  not  defined  as  one  of  the 
components  generic  parameters.  At  this  point,  the  current  implementation  would  abort 
processing  and  declare  a  parameter  type  error.  An  improvement  to  this  would  be  to 
search  through  the  type  components  in  the  CAPS  software  base  to  see  if 
Shipboard_Navigation  has  already  been  defined.  Specifically,  within  the 
Operator_Component_Library,  the  Operator_Component_Dictionary  could  quickly  be 
searched  since  it  is  indexed  by  component  name.  If  Shipboard.Navigation  was  found 
then  its  corresponding  Ada  type  could  be  extracted  and  provided  to  the  signature 
encoding  process.  If  Shipboard.Navigation  is  not  found,  then  an  error  message  should 
be  generated  and  the  attempt  to  add  this  component  to  the  software  base  should  be 
aborted. 
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E.  REDUCE  THE  USER  INTERACTION  WITH  PARAMETER 
MAPPING  THROUGH  A  PRE-MAPPING  FUNCTION 

Automatic  mapping  selections  should  be  perfonned,  where  possible,  as  an  aid  to  the 
user's  establishment  of  a  parameter  mapping  scheme.  These  automatically  selected 
mappings  could  be  accomplished  in  cases  where  only  one  parameter  mapping  was 
possible  for  a  particular  query  component  parameter,  or  only  one  instantiation  was 
possible  for  a  particular  generic  parameter.  This  would  reduce  the  number  of  mappings 
the  user  would  have  to  select.  It  would  also  be  helpful  to  provide  a  visual  ripple-tiirough 
effect  for  all  instantiations.  For  example,  suppose  software  base  component  parameters 
SBC_Inl,  SBC_In2,  and  SBC_Outl  are  all  defined  by  the  generic  parameter 
SBC_Gen_Param.  As  soon  as  the  user  makes  a  selection  that  instantiates 
SBC_Gen_Param,  all  software  base  component  parameters  defined  by  SBC_Gen_Param 
should  be  redisplayed  with  their  parameter  types  updated  to  reflect  the  generic 
instantiation  they  are  then  locked  into. 

F.  REMOVE  PSDL  SPECIFICATION  LIMITATIONS 

Several  improvements  can  be  realized  by  removing  various  requirements  imposed  ly 
this  implementation  for  writing  PSDL  specifications  that  are  more  restrictive  than  the 
PSDL  language  intended. 

1.  Allow  Extra  Generic  Parameters 

The  current  implementation  will  not  process  a  PSDL  specification  that  has 
uninstantiated  generics  during  component  integration.  This  includes  generic  procedures, 
which  the  current  implementation  does  not  recognize.  Allowing  generic  procedures, 
even  though  they  cannot  be  defined  at  present  in  PSDL,  will  expand  the  scope  of  the 
kinds  of  components  admitted  into  the  CAPS  software  base.  Adjustments  would  have  to 
be  made  during  the  integration  process  to  allow  a  user  to  define  any  uninstantiated 
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generic  within  the  generated  wrapper  so  that  the  instantiation  could  be  fully  defined  and 
implonented. 

2.  Make  Secondary  ADTs  Visible  to  External  Comptmoits 

It  is  desirable  for  components  to  be  able  to  reference  a  type  declaration 
(secondary  ADT  -  refer  to  Section  FV.D.S.b)  that  was  made  in  the  specification  of 
another  component.  This  is  similar  to  the  concept  of  a  user  defined  type.  The  difference 
is  that  with  a  user  defined  type,  the  name  of  the  type  component  is  the  user  defined  type 
and  can  therefore  be  accessed  directly.  This  may  be  a  difficult  concept  to  inrq)lement 
without  having  a  big  effect  on  processing  time.  The  main  reason  for  this  is  that  there  is 
no  fast  method  for  searching  for  secondary  ADTs  other  than  to  iterate  through  all 
existing  type  components  to  see  if  the  desired  secondary  ADT  is  defined  there.  One 
solution  would  be  to  create  a  separate  dictionary  of  all  secondary  ADTs  which  would 
provide  for  direct  access  and  greatly  reduce  search  dme.  Referencing  secondary  ADTs 
is  important  because  it  imitates  a  capability  inherent  in  the  Ada  language. 

3.  Expand  Array  Component  Definition 

The  current  implementation  imposes  restrictions  on  the  definitions  of  Array 
components  within  a  PSDL  specification.  Array  components  can  be  defined  by  any 
combination  of  user  defined  or  predefined  Ada  types.  However,  for  generic  definitions, 
either  both  Array  components  must  be  defined  by  generic  parameters,  or  else  neither  may 
be  defined  by  generic  parameters.  Future  implementations  should  remove  this 
restriction. 

4.  Matching  Composite  Types 

The  current  implementation  does  not  go  below  one  level  when  matching 
composite  types.  So,  for  example,  if  two  Arrays  are  being  matched,  then  their 
components  (the  first  level)  will  be  compared.  However,  if  the  element  component  is 
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itself  a  composite  type  (i.e.,  an  Array  of  Arrays)  tfien  the  Array  components  of  the  Array 
element  component  (second  level)  are  not  choked  for  a  match.  Future  in^lonentadons 
should  remove  this  restriction  which  will  provide  more  accurate  type  matching. 

The  current  implementation  provides  an  algorithm  for  matching  Array 
components  down  to  one  level  (Ada_Operator_Matching_Routines_Pkg.a).  That  same 
algorithm  can  be  utilized  for  any  kind  of  composite  type.  The  process  of  creating  type 
declarations  in  the  wrapper  package  has  also  been  developed  that  allows  for  the 
predefinition  of  composite  types  before  they  are  invoked  in  an  Ada  subprogram 
specification  or  implementation.  This  may  prove  to  be  useful  when  dealing  with 
constrained  types.  A  possible  approach  might  be  to  specify  constrained  types  as 
composite  types  with  the  sub-component(s)  providing  the  necessary  constraint 
information.  See  the  following  section  for  an  example  of  this  with  the  String  type. 

5.  Matching  Constrained  Types 

If  an  input  parameter  of  a  query  component  and  a  software  base  component  is  a 
constrained  type  like  Range,  the  current  implementation  will  validate  that  they  match. 
However,  it  is  possible  that  the  constraint  on  the  software  base  component  input 
parameter  Range  is  1..50  while  the  constraint  on  the  query  component  input  parameter 
Range  is  1..100.  In  reality,  they  do  not  match,  nor  is  the  query  input  parameter  even  a 
valid  subtype.  The  key  problem  with  going  to  a  deeper  level  to  match  these  types  is  that 
currently  the  information  about  the  Range  constraints  is  only  contained  in  the  Ada 
specifications.  One  possible  solution  to  this  would  be  to  allow  the  Range  constraints  to 
be  declared  in  the  PSDL  specification.  For  example,  we  could  declare  "X  :  Range 
pnOM  ;  1,  TO  :  50]"  in  the  software  base  component  PSDL  specification.  TTus 
information  would  not  necessarily  have  to  be  encoded  into  the  component  input  and 
output  signature  but  could  be  handled  by  a  filter  that  follows  the  signature  matching 
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filter,  much  like  Array  matching  at  the  component  level  is  handled  by  this 
implementation. 

A  possibly  better  approach  was  alluded  to  in  the  previous  section.  A  user  defined 
type  could  be  used  as  a  composite  type  component  to  provide  constraint  information. 
Take  String  for  example.  It  could  be  specified  as 

Input_Parameter  :  STRING  [  SI2SE  :  some_lJDT_name] 
where  SIZE  would  define  the  length  of  the  String.  The  wrapper  package  would  have 
direct  access  to  this  constraint  information  because  it  can  access 
some_UDT_name_PKG.  some_UDT_name. 

G.  EXTEND  ARRAY  MATCHING,  GENERIC  INSTANTIATION 
VALIDATION  AND  INTEGRATION  TO  TYPE  COMPONENTS 

Due  to  time  limitations.  Array  type  matching,  generic  validation,  and  integration  of 
selected  software  base  components  was  not  implen^nted  for  type  components.  These 
capabilities  should  be  included  in  future  implementations.  The  underlying  processes  for 
their  implementation  will  be  very  similar  to  the  processes  implemented  for  operator 
components.  Because  Array  type  matching  does  not  deal  with  generics,  that  process  can 
be  incorporated  exactly  as  it  is  currently  implemented.  Generic  instantiation  validation 
will  have  two  extra  steps  to  consider.  The  first  is  the  mapping  of  the  type  component's 
operators.  The  algorithm  for  this  is  already  provided  in  the  implementation  of  a  PSDL 
query  for  type  components.  The  second  additional  step  is  that  when  iterating  through  all 
possible  mapping  combinations  at  the  ADT  operator  level,  a  failure  to  find  a  successful 
match  will  potentially  invalidate  mappings  found  for  previous  operators  and  an  alternate 
combination  for  the  type  component's  generic  parameters  may  have  to  be  explored. 
This  essentially  contains  one  more  level  of  complexity  than  does  the  process  for  operator 
components.  Operator  components  had  to  deal  with  two  levels  of  complexity.  A 
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mapping  for  their  generic  parameters  and  a  mapping  for  their  non-generic  parameters. 
Type  components  have  both  of  those  levels  to  deal  with  plus  a  third;  the  mapping  of  the 
type  component's  generic  parameters.  Similarly,  the  integration  of  a  type  component 
must  be  concerned  with  both  this  third  level  of  complexity  and  having  the  user  establish  a 
mapping  of  the  type  component's  operators  prior  to  determining  parameter  mappings. 

H.  IMPROVE  SPEED  AND  EFFICIENCY 

Most  of  the  effort  that  went  into  this  thesis  was  to  find  a  way  to  provide  more 
accurate  component  retrieval.  Little  time  was  left  to  consider  optimization.  Initial  tests 
were  performed  on  a  software  base  loaded  with  over  1,000  components.  These 
components  were  automatically  generated  with  varying  numbers  of  input,  output,  and 
generic  components.  Many  components  were  entered  multiple  times  to  force  match 
processing  on  more  significant  numbers  of  matching  components.  One  tested  retrieval 
returned  all  50  possible  non-generic  component  matches  from  the  1,000  component 
software  base  in  under  a  minute.  Another  retrieval  designed  to  extract  known  generic 
components  returned  all  50  possible  generic  component  matches  in  under  three  minutes. 
It  is  difficult  to  categorize  these  initial  and  limited  results.  For  example,  suppose  we 
were  looking  for  components  that  had  four  input  parameters.  Further  suppose  that  of 
the  next  5,000  components  added  to  the  software  base,  none  will  have  four  input 
parameters  (i.e.,  all  will  have  either  more  or  less  than  four).  In  this  case,  due  to  the 
partitioning  of  the  search  base  by  the  software  base  schema  design,  we  will  see  no 
change  in  the  retrieval  time  of  the  two  test  examples  above  even  though  they  are 
searching  a  5,000  component  software  base  versus  the  original  1,000  component 
software  base.  More  research  needs  to  be  done  that  can  quantify  retrieval  patterns  and 
expectations. 
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What  is  obvious,  however,  is  where  the  processing  bottleneck  occurs  in  the  retrieval 
mechanism  implemented  in  this  thesis.  Signature  matching  is  very  fast  The  aspect  of 
the  retrieval  mechanism  with  the  biggest  payoff  if  optimized  is  post-signature  filtering. 
This  includes  Array  type  matching  at  the  Array  component  level  and  generic  instantiation 
validation.  One  reason  this  is  slow  may  be  due  to  the  need  to  access  PSDL 
specifications  for  each  software  base  component  accessed  by  this  filter.  It  also  appears 
that  there  is  unnecessary  processing  being  performed  in  the  generic  instantiation 
validation.  Currently,  when  examining  all  possible  instantiation  for  a  particular  generic 
parameter,  each  query  component  parameter  is  included  in  the  list  of  possibilities  if  it  can 
instantiate  the  generic  parameter.  However,  it  may  be  the  case  that  only  each  parameter 
type  that  is  available  to  instantiate  the  generic  parameter  need  be  a  part  of  the  list  of 
possible  instantiations. 
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APPENDIX  A  -  USER  DEFINED  TYPE  EXAMPLE 


Here  is  an  example  of  a  sinplified  prototype  PSDL  q)ecification  that  en^loys  the 
user  defined  type  (UDT)  Card_Deck: 

TYPE  Caid.Deck 
SPECfflCATION 

Card.Deck  :  Range 
END 

IMPLEMENTATION  ADA  Card_Deck_Pkg  END 

OPERATOR  Pick_A_Card 
SPEOTICATION 

INPUT  The_In_Card  :  Card_Dcck 
OUTPUT  Thc_Out_Card  :  Card_Dcck 
END 

IMPLEMENTATION  ADA  Pick_A_Card_Pkg _ 

Figure  27  -  User  Defined  Type 
The  UDT  Card_Deck  is  referenced  by  the  operator  Pick_A_Card.  By  checking  the 
prototype  specification  for  a  type  named  Card.Deck,  we  see  that  Card_Deck  is  defined 
as  the  Ada  type  Range.  The  actual  Ada  implementation  of  Card.Deck,  stored  in 
Card_Deck_Pkg  would  look  like  this: 
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package  Card_Deck_Pkg  is 
type  Card_Deck  is  Range  1..52; 

end  Card_Deck_Pkg; _ 

Figure  28- Ada  Implementation  of  UDT 


APPENDIX  B  -  PSDL  SPECIFICATION  EXAMPLES 


Many  of  the  PSDL  specifications  in  this  secdcm  were  written  for  Ada  con:qx>nents 
developed  by  Grady  Booch  [Booc87al.  These  PSDL  specifications  are  not  con^lete 
and  only  contain  the  information  necessary  to  illustrate  how  to  formulate  PSDL 
specifications  for  software  reuse.  The  exanples  in  diis  t^pendix  are  designed  to 
illustrate  the  assumptions  and  requirements  described  in  Section  IV.D.3. 


A.  PROTOTYPE  PSDL  SPECIFICATION 

A  prototype  specification  covers  the  entire  system  being  prototyped.  Thus  it  may 
have  several  types  and  operators.  Here  is  an  example  of  a  prototype  PSDL  specification: 


TYPE  Ring 
SPECIHCATION 

Ring  :  PRIVATE, 

Direction  :  PRIVATE 

OPERATOR  Rotate 
SPECfflCATION 

INPUT  The_Direction  :  Direction, 
The_In_Ring  :  Ring 
OUTPUT  The_Out_Ring  :  Ring 

END 

END 

OPERATOR  Sort 
SPECmCATION 

INPUT  The_In_List  :  List_typc, 
OUTPUT  The_Out_List  :  List_type 

END 


Figure  29  -  Partial  Prototype  PSDL  Specification 

Rgure  29  depicts  a  partial  prototype  PSDL  specification  with  just  one  type  and  one 
operator  portrayed.  It  is  used  in  conjunction  with  query  components  only.  As  explained 
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earlier,  the  prototype  PSDL  specification  is  in^rtant  for  all  PSDL  queries  because  the 
prototype  contains  all  user  defined  types  refo'enced  the  PSDL  query.  Software  base 
components  are  either  types  or  operators  and  their  corresponding  PSDL  specification  is 
limited  to  a  single  type  or  operator,  never  an  entire  prototype.  In  Figure  29  the  user 
defined  type  List.type  is  referenced.  Although  its  definition  is  not  provided,  it  would  be 
defined  as  a  type.  Note  that  no  generics  are  used  because  they  are  not  allowed  in  query 
components.  Note  also  that  the  primary  ADT  Ring  is  referenced  by  the  ADT  operator 
Rotate  in  its  input  and  output  parameters.  The  secondary  ADT  Direction  is  also 
referenced  by  an  ADT  operator  input  parameter.  While  other  operator  PSDL 
specifications  within  the  prototype  could  validly  reference  Ring,  they  caiuiot  reference 
the  secondary  ADT  Direction  because  it  is  not  visible  outside  the  type  Ring  in  this 
implementation.  Because  these  secondary  ADTs  correspond  to  type  declarations  made 
in  an  Ada  specification,  ultimately  they  should  become  visible  to  any  object  that  has 
access  to  the  type  component  in  which  they  are  declared. 

Here  is  another  partially  developed  prototype  PSDL  specification: 

TYPE  Index 

SPECinCATION 

Index  :  RANGE 

END 

OPERATOR  Bubble_Sort 

SPECmCATION 

INPUT  The_In_Array  ;  ARRAY  [  ARRAY_ELEMENT  :  CHARACTER, 

ARRAY.INDEX  :  Index] 

OUTPUT  The_Out_Array  :  ARRAY  [  ARRAY.ELEMENT  :  CHARACTER, 

ARRAY_INDEX  :  Index] 

END _ 

Figure  30  -  Partial  Prototype  PSDL  Specification 
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OiKe  again  note  that  because  it  corresponds  to  query  component  PSDL  specifications  it 
contains  no  generics.  Also  note  the  use  of  the  user  defined  type  Index  by  the  operator 
Bubble_Sort  and  the  use  of  the  mandatory  identifiers  ARRAY_ELEMENT  and 
ARRAY_INDEX  when  specifying  array  components.  One  problem  with  trying  to  find  a 
match  for  Bubble.Sort  is  that  a  generic  component  that  could  perform  the  required 
sorting  normally  requires  a  procedure  passed  in  as  one  of  its  generic  parameters  that 
provides  ordering  information  for  the  elements  to  be  sorted.  Because  generic  procedures 
cannot  be  handled  by  CAPS  at  this  time,  this  limits  the  kinds  of  components  available  in 
the  CAPS  software  base. 

B.  SOFTWARE  BASE  COMPONENT  PSDL  SPECIFICATION 

We  will  look  at  two  kinds  of  PSDL  specifications  for  a  software  base  component 
One  for  a  type  component  and  one  for  an  operator  component  Because  we  are  looking 
at  software  base  components,  generics  can  be  included.  Here  is  the  PSDL  specification 
for  a  software  base  type  component: 
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TYPE  Ring 
SPECIFICATION 

GENERIC  Item  :  PRIVATE 

Ring  :  PRIVATE, 

Direction  :  PRIVATE 

OPERATOR  Insert 
SPECMCATION 

INPUT  Thejtem  :  Item, 
The_In_Ring  ;  Ring 
OUTPUT  The_Out_Ring  :  Ring 

END 

OPERATOR  Rotate 
SPECinCATION 

INPUT  The_In_Ring  :  Ring, 
The_Direction  :  Direction 
OUTPUT  The_Out_Ring  ;  Ring 
END 


Figure  31  -  PSDL  Specification  for  Type  Component 

Note  how  Figure  31  is  different  from  Figure  29  for  the  type  Ring.  Because  it  is  a 
software  base  component.  Figure  28  can  use  a  generic  type.  Also  note  that  the  generic 
type  as  well  as  the  ADTs  are  defined  as  Ada  types.  It  would  be  illegal  for  either  to  try 
and  reference  another  generic  type  or  a  user  defined  type.  Here  is  the  PSDL 
specification  for  a  software  base  operator  component; 
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OPERATOR  Bubble.Son 
SPECMCATION 

GENERIC  Array_Type  ;  ARRAY  [  ARRAY_ELEMENT  :  PRIVATE, 

ARRAY.INDEX  :  DISCRETE] 

INPUT  The_In_ArTay  :  Array_Type 
OUTPUT  The_Out_AiTay  :  Array_Type 

END 


Figure  32  •  PSDL  Specification  for  Operator  Component 

We  see  in  Figure  32  that  the  generic  Array_Type  defines  itself  and  its  component 
identifiers  (the  mandatory  ARRAY_ELEMENT  and  ARRAY_INDEX)  as  Ada  types 
which  is  the  only  option  for  a  generic.  Figure  32  also  shows  the  operator  inputs  and 
outputs  referencing  the  specification's  generic.  Note  that  for  both  Figure  31  and  Figure 
32,  no  unrecognized  types  are  referenced  (i.e.,  no  references  are  made  to  user  defined 
types  that  are  declared  and  defined  externally).  There  are  two  reasons  for  this.  First, 
software  base  components  do  not  have  a  parent  prototype  PSDL  specification  in  which 
those  external  references  could  be  looked  up  and  resolved.  Second,  and  more 
importantly,  it  is  a  limitation  of  this  implementation.  Future  implementations  should 
allow  input  and  output  parameters  of  a  software  base  component  to  be  defined  in  terms 
of  types  already  defined  in  the  software  base. 


125 


APPENDIX  C  -  WRAPPER  PACKAGE  EXAMPLES 


This  iq)pendix  provides  examples  of  a  query  component  prototype  PSDL 
specification,  query  component  operator  PSDL  specification,  two  software  base 
operator  component  PSDL  specifications  (one  generic,  one  non-generic),  and  the 
wrapper  packages  generated  by  integrating  the  software  base  components  into  the  usa‘'s 
prototype.  The  following  figure  describes  the  query  component  prototype  PSDL 
specification: 


TYPE  Index 
SPECinCATION 
Index :  RANGE 
END 

IMPLEMENTATION  ADA  Index_PKG  END 

TYPE  List 
SPECmCATION 

List :  ARRAY  [ARRAY_ELEMENT :  CHARACTER, 
ARRAY.INDEX :  INTEGER] 

END 

IMPLEMENTATION  ADA  List_PKG  END 

OPERATOR  QC_Op 
SPECMCATION 
INPUT 

QCJnl  :  NATURAL, 

QC_In2  :  ARRAY  [ARRAY_ELEMENT  :  BOOLEAN, 
ARRAY.ELEMENT ;  Index], 

QC_In3  :  Index 
OUTPUT 

QC_Outl  :  List, 

QC_Out2 :  NATURAL 

END 

IMPLEMENTATION  ADA  QC_Op_PKG  END _ 

Figure  33  -  Query  Prototype  PSDL  Specification 
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The  following  figure  describes  the  query  operator  component  PSDL  ^)ecification: 


OPERATOR  QC_Op 
SPEOHCATION 
INPUT 

QC_Inl  :  NATURAL, 

QC_In2  :  ARRAY  [ARRAY_ELEMENT :  BOOLEAN, 

ARRAY_INDEX :  Index], 

QC_In3 :  Index 
OUTPUT 

QC_Outl  ;  List, 

QC_Out2 :  NATURAL 

END 

IMPLEMENTATION  ADA  QC_Op_PKG  END _ 

Figure  34  •  Query  Operator  Component  PSDL  Specification 

The  following  figure  describes  a  generic  software  base  component  that  matches 
Figure  34; 
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OPERATOR  SBC.Op 
SPEOnCATION 

GENERIC  SBC_Gen_Paraml :  PRIVATE. 

SBC_Gen_Param2 :  PRIVATE, 

SBC_Gen_Parain3  :  ARRAY  [ARRAY_ELEMENT :  PRIVATE, 


ARRAY.INDEX :  DISCRETE] 


INPUT 


SBC_Inl :  SBC_Gcn_Param3, 
SBC_In2 :  NATURAL, 
SBC_In3 :  SBC_Gen_Parain2 


OUTPUT 


SBC_Outl :  SBC_Gen_Paraml, 

SBC_Out2  :  ARRAY  [ARRAY_ELEMENT :  CHARACTER, 

ARRAY.INDEX :  INTEGER], 
SBC_Out3 :  SBC_Gen_Param3, 

SBC_Out4 :  POSITIVE, 

SBC_Out5  :  ARRAY  [ARRAY_ELEMENT :  INTEGER, 

ARRAY.INDEX :  INTEGER] 


END 


IMPLEMENTATION  ADA  SBC_Op_SB  END  _ 


Figure  35  •  Software  Base  Generic  Component  PSDL  Specification 
Here  is  an  example  of  a  parameter  mapping  that  matches  all  query  PSDL 
specification  parameters  to  the  software  base  component  PSDL  specification  parameters 
and  additionally  defines  the  generic  instantiations: 
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QC_Inl 

-> 

SBC_In2 

QC_In2 

-> 

SBC.Inl 

instantiated  SBC_Gen_Param3 

QC_In3 

-> 

SBC_In3 

->  instantiated  SBC_Gen_Param2 

QC.Outl 

-» 

SBC_Out2 

QC_Out2  — > 

SBC_Outl 

->  instantiated  SBC_Gen_Paraml 

Figure  36  -  Parameter  Mapping 


The  following  figure  lists  the  Ada  source  code  for  the  wrapper  package  generated 
by  the  above  pa”  meter  mapping  to  integrate  the  selected  software  base  component  into 
the  user  prototype: 

with  SBC_Op_SB; 
use  SBC_C)p_SB; 
with  Index_PKG; 
with  List_PKG; 

package  QC_Op_PKG  is 

type  QC_In2_ARRAY  is  array  (Index_PKG.Index)  of  BOOLEAN; 

package  TMP_QC_Op_PKG  is  new  SBC_Op_SB( 

SBC_Gen_Paraml  =>  NATURAL, 

SBC_Gen_Param2  =>  Index_PKG.Index, 

SBC_Gen_Param3  =>  QC_In2_ARRAY); 

procedure  QC_Op( 

QC_Inl  :  in  NATURAL; 

QC_In2  :  in  QC_In2_ARRAY; 

QC_In3  :  in  Index_PKG.Index; 

QC_Outl  out  List_PKG.List; 

QC_Out2  :  out  NATURAL); 

end  QC_Op_PKG; 

Figure  37  -  Generic  Software  Base  Component  Wrapper  Package 
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First,  let  us  look  at  the  with  statements.  The  software  base  component  package 
SBC_Op_SB  is  referenced  ("_SB‘’  is  a  naming  convention  for  software  base 
components).  So  too  are  the  user  defined  type  packages  List_PKG  and  Index_PKG  that 
were  defined  in  the  user  prototype  PSDL  specification.  Because  the  integrated  software 
base  component  is  generic,  it  must  be  instantiated.  The  prefix  "TMP_"  and  the  suffix 
"_PKG"  are  attached  to  the  query  operator  name  QC_Op  to  create  the  name  of  the 
instantiated  package.  Looking  at  the  code  in  which  the  necessary  generic  parameter 
instantiations  are  made  we  see  examples  of  three  different  kinds  of  generic  instantiations. 
The  instantiation  of  SBC_Gen_Paraml  is  accomplished  with  the  predefined  Ada  type 
NATURAL.  The  instantiation  of  SBC_Gen_Param2  is  accomplished  with  the  user 
defined  type  List.  And  the  instantiation  of  SBC_Gen_Param3  is  accomplished  by  using 
an  Array  type  that  was  predefined  in  the  wrapper  package.  Looking  at  the  subprogram 
specification  for  QC_Op  we  find  the  same  three  examples  present  for  the  type  definitions 
of  the  parameters. 

The  wrapper  package  body  is  generated  after  the  wrapper  package.  The  following 
figure  lists  the  Ada  source  code  for  the  wrapper  package  body  generated  to  integrate  the 
selected  software  base  component  into  the  user  prototype: 
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PACKAGE  BODY 


package  body  QC_Op_PKG  is 
procedure  QC_Op( 


QC_Inl 

:  in  NATURAL; 

QC_In2 

:  in  (3C_In2_ARRAY; 

QC_In3 

:  in  Index_PKG.Index; 

QC.Outl 

out  List_PKG.List; 

(3C_Out2 

:  out  NATURAL)  is 

"  dummy  output  parameters 

type  SBC_Out5_ARRA Y  is  array  (INTEGER)  of  INTEGER; 
SBC_Out3_DUMMY ;  QC_In2_ARRAY; 

SBC_Out4_DUMMY :  POSITIVE; 

SBC_Out5_DUMMY :  SB  C_Out5_ ARRAY; 

begin 

TMP_(3C_Op_PKG.SBC_Op( 

QC_In2, 

QC.Inl, 

QC_In3, 

QC_Out2, 

QC.Outl, 

SBC_Out3_DUMMY, 

SBC_Out4_DUMMY, 

SBC_Out5_DUMMY); 

end  QC_Op; 
end  QC_Op_PKG; 

Figure  38  -  Generic  Software  Base  Component  Wrapper  Package  Body 

In  the  wrapper  package  body  we  see  a  subprogram  implementation  for  QC_Op 
nearly  identical  to  the  subprogram  specification  defined  in  Hgure  37.  Next,  variables  for 
any  extra  (i.e.,  unused)  software  base  output  parameters  must  be  defined  because  diey 
will  be  referenced  in  the  procedure  call  to  the  software  base  component  operator.  We 
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see  from  the  parameter  maiq)ing  of  Figure  36  that  our  three  extra  output  parameters  are 
SBC_Out3,  SBC_Out4,  and  SBC.OutS.  Each  variable  identifier  is  created  by  impending 
the  suffix  "_DUMMY"  to  the  name  of  the  extra  output  parameter.  Two  points  need  to 
be  explained  for  defining  extra  software  base  component  output  parameters.  First,  for  an 
output  parameter  that  is  not  defined  by  a  predefined  Ada  Qrpe  (i.e..  Array  which  must 
have  its  components  defined),  a  type  declaration  must  precede  the  variable  definitions. 
This  is  the  case  for  SBC_CXit5.  Second,  in  some  cases  an  output  parameter  may  not 
have  been  used,  but  it  was  defined  by  a  generic  parameter  that  was  instantiated.  Under 
these  circumstances  the  type  of  the  output  parameter  becomes  the  type  that  the 
corresponding  generic  parameter  was  instantiated  with.  That  is  the  case  for  SBC_C)ut3. 

Hnally,  a  procedure  call  must  be  made  to  the  software  base  operator  component  In 
doing  so,  the  new  package  TMP_QC_C)p_PKG  that  defines  the  instantiation  of  the 
generic  software  base  component  must  be  referenced.  Notice  the  ordering  of  the 
parameters  in  the  call  to  SBC_Op.  It  follows  the  ordering  of  input  and  output 
parameters  defined  by  the  software  base  component  PSDL  specification  of  Figure  35 
with  the  actual  parameters  (except  for  unused  software  base  component  output 
parameters)  being  the  corresponding  query  component  parameters  defined  by  the 
parameter  mapping  in  Figure  36. 

Now  that  we  have  looked  at  an  example  of  integrating  a  generic  software  base 
component  that  matched  a  query  component  we  will  look  at  an  example  of  integrating  a 
non-generic  software  base  component.  The  query  component  remains  the  same  one 
described  by  Figure  34  and  has  the  same  prototype  PSDL  specification  of  Rgure  33. 
Here  is  a  description  of  the  non-generic  software  base  component  PSDL  specification: 


132 


OPERATOR  SBC_Op 
SPEOHCATION 


INPUT 

SBC_Inl :  ARRAY  [ARRAY_ELEMENT :  ENUMERATION, 
ARRAY.INDEX :  DISCRETE], 

SBC_In2 :  INTEGER, 

SBC_In3 :  INTEGER 
OUTPUT 

SBC.Outl  :  POSITIVE, 

SBC_Out2  :  ARRAY  [ARRAY_ELEMENT :  CHARACTER, 

ARRAY.INDEX :  POSITIVE], 

SBC_Out3 :  INTEGER, 

SBC_Out4  :  ARRAY  [ARRAY.ELEMENT :  INTEGER, 
ARRAY.INDEX :  INTEGER] 

END 

IMPLEMENTATION  ADA  SBC_Op_SB  END _ 

Figure  39  -  Software  Base  Non-Generic  Component  PSDL  Specification 


Here  is  an  example  of  a  parameter  mapping  that  matches  all  query  PSDL 


specification  parameters  to  the  software  base  component  PSDL  specification  parameters: 
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QC.Inl 

-¥ 

SBC_ln3 

QC_In2 

SBC.lnl 

QC_In3 

-> 

SBC_ln2 

QC_Outl 

SBC_Out2 

QC_Out2 

SBC.Outl 

Figure  40  •  Parameter  Mapping 


The  following  figure  Usts  the  Ada  source  code  for  the  wrappo*  package  generated 
by  the  above  parameter  mapping  to  integrate  the  selected  software  base  comptment  into 
the  user  prototype: 


with  SBC_Op_SB; 
use  SBC_Op_SB; 
with  Index_PKG; 
with  List_PKG; 

package  QC_Op_PKG  is 

type  QC_In2_ARRAY  is  array  (Index_PKG.Index)  of  BCXDLEAN; 
procedure  QC_Op( 


QC_Inl 

:  in  NATURAL; 

QC_In2 

:  in  QC_In2_ARRAY; 

QC_In3 

:  in  Index_PKG.Index; 

QC_Outl 

out  List_PKG.List; 

QC_Out2 

:  out  NATURAL); 

end  QC_Op_PKG; 

Figure  41  -  Non*Generic  Software  Base  Component  Wrapper  Package 

The  wrapper  package  body  is  generated  after  the  wrapper  package.  The  following 
figure  lists  the  Ada  source  code  for  the  wrapper  package  body  generated  to  integrate  the 
selected  software  base  component  into  the  user  prototype: 
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PACKAGE  BODY 


package  body  QC_Op_PKG  is 
procedure  QC_Op( 


(3C_lnl 

:  in  NATURAL; 

(3C_In2 

:  in  (3C_In2_ARRAY; 

QCJnS 

:  in  Index_PKG  .Index; 

(JC.Outl 

out  List_PKG.List; 

QCjOua 

:  out  NATURAL)  is 

-  dummy  output  parameters 

type  SBC_Out4_ ARRAY  is  array  (INTEGER)  of  INTEGER; 
SBC_Out3_DUMMY :  INTEGER; 

SBC_Out4_DUMMY ;  SBC_Out4_ARRAY; 

begin 

SBC_Op_SB.SBC_Op( 

QC_In2, 

QC_In3, 

QC_Inl, 

QC_Out2, 

QC_Outl, 

SBC_Out3_DUMMY, 

SBC_Out4_DUMMY); 

end  ()C_Op; 

end  QC_Op_PKG; _ 


Figure  42  -  Non-Generic  Software  Base  Component  Wrapper  Package 
Body 

The  prinuuy  difference  between  (Figures  37  and  38)  and  (Figures  41  and  42)  is  that  in 
the  two  figures  immediately  above  no  generic  instantiation  takes  place  and  the  call  to  the 
software  base  operator  is  made  by  referencing  the  software  base  component  package 
SBC_Op_SB. 
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APPENDIX  D  -  ADA  SOURCE  CODE 


The  code  below  is  listed  by  program  in  alphabetical  order.  It  includes  Ada  code 
developed  to  encode  signatures,  perform  array  component  level  matching,  generic 
instantiation  validation,  type  matching,  and  component  transformation. 


-  Filename  /  Ada_Operator_Matching_Routines_Pkg,a 

--  Date  1 12  Aug  93 

-  Author  /  Scott  Dolgoff 

"  System  /  Solbourne 

-  Compiler  /  Verdix  Ada 

-  Description  /  TMs  package  provides  two  kinds  of  matching  routines 

!  that  can  be  used  by  Operators.  The  first  and  simpler 
/  routine  determines  whether  the  Arrays  of  two  Operators 
/  match  at  the  array  component  level.  The  second  routine 
/  determines,  given  a  software  base  component  with  generics, 
/  whether  an  instantiation  is  possible  with  the  specified 
/  query  component. 


with  PARAMETER_LIST_PKG; 
use  PARAMETER_UST_PKG; 


package  OPERATOR_MATCH_ROUTINES  is 


-  This  procedure  examines  the  arrays  of  a  query  component  and  a 

-  software  base  component  and  determines  whether  each  query  component 

-  array  can  be  matched  against  a  distinct  array  in  the  software 

"  base  component.  If  so,  NO  MATCH  is  returned  as  FALSE.  If  not,  then 

-  NO_MATCH  is  returned  as  TRUE. 

procedure  MATCH_ARRAYS(QC_IN_PARAM_UST  :  in  PARAMETCRS; 

QC_0UT_PARAM_UST  :  in  PARAMETERS; 
SBCJN_PARAM_UST  :  in  PARAMETERS; 
SBC_OUT_PARAM_LIST :  in  PARAMETERS; 

NO_MATCH  :  in  out  BOOLEAN); 


"  This  procedure  attempts  to  find  a  valid  mapping  between  a 

—  query  component  and  a  generic  software  base  component.  The 

-  valid  mapping  includes  finding  a  possible  instantiation  of 
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-  the  generic  that  leads  to  a  valid  mapping  between  parameters. 

”  If  a  valid  mapping  is  found,  NO^MATCH  is  returned  as  TRUE.  If 
--  not,  then  NO_MATCH  is  returned  as  FALSE. 

procedure  FIND JNSTANTlATION(QCJN_PARAMJJST  ;  in  out  PARAMETERS; 

QC_0UT_PARAM_UST  :  in  out  PARAMETERS; 
SBCJN_PARAM_LIST  ;  in  out  PARAMETERS; 
SBC_OUT_PARAk.lJST :  in  out  PARAMETERS; 
SBC_GEN_PARAM_LiST ;  in  out  PARAMETERS; 
NO_MATCH  :  in  out  BOOLEAN); 


end  OPERATOR31ATCH_ROimNES; 


with  TEXTJO,  ADA_RECOGNlZED_TYPES_PKG.  PARAMEIER_MAPPING_PKG.  PSDLJD.HCG; 
use  TEXTJO.  ADA_RECOGNIZED_TYPES_PKG.  PARAMETER^MAPHNG.PKG,  PSDL_ID_PKG; 

package  body  OPERATOR_MATCH_ROUTINES  is 

--  create  structures  to  build  a  dynamic  array 

type  P01ENTIALJV!ATCH_UST(UST_SIZE :  NATURAL); 
type  POTENTIAL_MATCH_PTR  is  access  P0TENTIAL_MATCH_L1ST; 

type  ONE_TO_ONE_MAP  is  aiTay(NATURAL  range  o)  of 

BOOLEAN; 

type  PARAMS  is  arrayCNATURAL  range  o)  of 

PARAMETERS; 

type  POTENTIAL_MATCH_UST(UST_SIZE :  NATURAL)  is  record 
SIZE  :  NATURAL  :=  UST.SIZE; 

“  Component  A  is  trying  to  map  to  component  B. 

"  each  array  cell  corresponds  to  one  of  a  component  B's 

-  parameters  (input,  output,  or  combined).  This  array  is 

-  cycled  through  when  a  component  A  parameter  attempts  to  find 
"  all  parameters  in  component  B  that  it  can  match. 

P_UST  :  PARAMS(1  ..  UST.SIZE)  :=  (others  =>  nuU); 

~  each  array  cell  corresponds  to  one  of  component  B's  parameters. 

-  When  one  of  these  is  mapped  to  by  component  A.  the  cell  is 

-  set  to  TRUE  to  indicate  that  no  other  compomnt  A  parameter 
"  can  now  map  to  it. 

ISJAAPPED :  ONE_TO_ONE_MAP(1 ..  UST.SIZE)  :=  (otters  =>  FALSE); 
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endreccid; 


type  VA1JD_MATCH_UST; 

type  VAUDJ4ATCH_UST_PTR  is  acccu  VALID_MATCH_UST; 

-  Again,  component  A  is  trying  to  map  to  component  B. 

-  this  structure  is  used  to  build  a  linked  list  of  all 

component  B's  parameters  that  match  a  particular  component  A. 

-  The  reason  THE_PARAMETER  is  an  integer  is  because  the  integer 

-  value  represents  the  index  position  of  the  component  B 

-  parameter  that  is  stored  in  the  array 

-  ONE_TO_ONE_MAP 
type  VALID_MATCH_UST  is  record 
THEJPARAMETER :  INTEGER; 

NEXT  :  VA1JD_MATCH_IJST_PTR; 
end  record; 


type  MAH>ING_UST(UST_SIZE :  NATURAL); 
type  MAPPING_UST_PTR  is  access  MAPPING.UST; 

type  LIST_ENTRIES  is  anay(NATURAL  range  o)  of 

VALID_MATCH_UST_PTR; 


type  MAH»ING_UST(UST_SIZE ;  NATURAL)  is  record 

SIZE  :  NATURAL  :=  UST_SIZE; 

"  Again,  component  A  is  trying  to  map  to  component  B. 

--  each  array  cell  corresponds  to  one  of  the  component  A' s 

-  parameters.  The  linked  list  attached  to  each  array 

-  cell  corresponds  to  all  the  component  B  parameters 

-  that  match  the  component  A  parameter  represented  by  the 

-  array  cell. 

P_UST  :  UST_ENTRIES(1  ..  UST.SIZE)  :=  (others  =>  nuU); 
end  record; 


type  MATCH.SWTTCH  is  (INPUT.MATCH.  OUTPUT.MATCH); 

MATCH.FOUND :  BCXDLEAN  :=  FALSE; 


ROUTINES  COMMON  TO  BOTH  ARRAY  MATCHING  AND 
FINDING  A  VAUD  GENERIC  INSTANTIATION 
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--  The  "tree  traversal"  treats  the  linked  lists  of  matched  software 

-  base  component  parameters  as  a  tree  rooted  at  the  first 

-  query  component  parameter.  Conceptually,  the  tree  is  a  combinatoric 

-  explosion  of  all  possible  mappings  of  one  query  parameter  to 

-  a  valid  software  base  parameter  (so  that  no  software  base  component 

-  parameter  is  used  more  than  once).  The  traversal  does  not  explore 

-  all  paths.  If  a  node  is  reached  that  selects  a  software  base  conqyonent 

-  parameter  that  was  already  selected,  no  lower  level  nodes  on  that 

-  path  need  to  be  visited.  Also,  the  tree  is  never  physically  built, 

-  just  logically  traversed.  This  helps  alleviate  potential  memory 

-  problems.  Backtracking  occurs  when  a  query  parameter  (tree  level) 

"  is  reached  that  cannot  find  an  unused  software  base  parameter  from 
“  its  linked  list  of  valid  mappings.  In  the  worst  case  it  is 

-  estimated  that  the  number  of  paths  to  be  checked  is  N  factorial 
”  where  N  is  the  total  number  of  software  base  parameters. 
procedure  TREE_niAVERSAL(QC_UST  :  in  MAPPING_UST_PTR; 

SBC_PARAM_USAGE :  in  outPOTENTIAL_MATCH.PTR: 
LEVEL  :  in  INTEGER)  is 

--  set  a  pointer  to  the  current  software  base  parameter  for  the 

-  current  query  parameter 

SBC.PTR :  VALID J4ATCH_UST_PTR  :=  QC_UST.P_UST(LEVEL); 
begin 


while  ((SBC_PTR  /=  null)  and  (not  MATCH_FOUND))  loop 

if  (not  SBC_PARAM_USAGE.IS_MAPPED(SBC_PTR.THE_PARAMETER))  then 
--  query  parameter  maps  to  software  base  parameter  that  has  not 
-  been  claimed  (mapped  to)  yet. 

SBC_PARAM_USAGEJS_MAPPED((SBC_FTR .raE_PARAMETER))  :=  TRUE; 
if  (LEVEL  <  QC.usT.siZE)  then  -  haven’t  reached  bottom 

TREE_TOAVERSAL(QC_UST,  SBC_PARAM_USAGE,  LEVEL  +  1); 

-  backtracked  to  this  point,  now  will  try  next  sbc  parameter 

-  in  the  list  so  must  reset  current  sbc  parameter  mapped  to 
“  by  this  query  operator  to  FALSE 

SBC_PARAM_USAGEJS_MAPPED((SBC_PTR.THE_PARAMErER))  ;=  FALSE; 
SBC.PTR  :=  SBC_PTR.NEXT; 
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MATCH.FOUND  :=  TRUE; 
end  if; 

else 

-  try  the  next  query  component  parameter  in  the  list 

SBC.PTR  ;=  SBC.PTR  J4EXT; 

end  if; 
end  loop; 

end  TREE_TRAVERSAL; 


ROUTINES  FOR  ARRAY  MATCHING 


"  Step  through  parameter  list  and  return  the  total  number  of 
-  String  and  Array  parameter  types. 

function  GET_STRING_AND_ARRAY_COUNT(PARAM_UST :  PARAMETERS)  return  INTEGER  is 
COUNT  ;  INTEGER  ;=0; 

LIST.PTR ;  PARAMETERS  .=  PARAM_UST; 


begin 


while  LIST_PTR  /=  null  loop 

if  (aJST_PTR.THE_TYPE.S  =  ARRAY.TYPE)  or  (UST_PTR.THE_TYPES  = 
STRING_TYPE))  then 

COUNT  ;=  COUNT +1; 
end  if; 

UST_PTR  :=  UST.PTR  J^EXT; 
end  loop; 
return  COUNT; 


140 


eml  GET_STRING_AND_ARRAY_CX)UNT; 


--  initialize  the  dynamic  arrays.  Set  up  the  list  of  all 

"  software  base  component  Array  and  String  parameters. 

ptocedine  INiilALlZE_SBC_PARAM_LIST(CONTAINER  :  in  out  POTENTIAL_MATCH_PTR; 

PARAM_LIST ;  in  PARAMETERS)  is 

NUM_OF_ARRAYS :  INTEGER; 
begin 

“  build  dynamic  arrays  to  store  String  and  Array  parameters 
NUM_OF_ARRAYS  :=  GET_STRING_AND_ARRAY_COUNT(PARAM_UST); 
if  NUM_OF_ARRAYS  >  0  then 

CX3NTAINER  :=  new  POTENTIAL_MATCH_LIST(NUM_OF_ARRAYS); 
end  if; 

end  INrnALIZE_SBC_PARAM_UST; 


-  load  the  software  base  component  dynamic  arrays  with 
--  their  parameter  list  of  Array  and  String  types 

procedure  LOAD_SBC_PARAMETERS(CONTAINER  :  in  out  POTENTIAL_MATCH_FTR; 

PARAM.LIST :  in  PARAMETERS)  is 

PTR  :  PARAMETERS  ;=  PARAM_UST; 

NUM_OF_ARRAYS :  INTEGER; 

begin 

—  load  the  dynamic  arrays 
if  CONTAINER  /=  null  then 
NUM_OF_ARRAYS  :=  1; 

while  ((PTR  /=  null)  and  (NUM_OF_ARRAYS  <-  CONTAINER.SIZE))  loop 

if  ((PTR.THE_TYPE.S  =  ARRAY_TYPE)  or  (PTR.THE_TYPE.S  = 
STRING.TYPE))  then 

CONTAINER.P_UST(NUM_OF_ARRAYS)  ;=  PTR; 
end  if; 

NUM_OF_ARRAYS  :=  NUM_OF_ARRAYS  +  1; 

PTR  ;=  PTRJ^EXT; 
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endkxq); 
end  if: 

end  LOAD.SBC.PARAMETERS; 


-  initialize  the  dynamic  arrays.  Becomes  array  of  query 

-  component  parameters.  Each  array  cell  has  an  attached  list 

-  of  all  software  base  component  parameters  that  match  the 
"  particular  query  component  parameter  represented  by  the 
"  array  cell.  Initially  the  list  is  null. 

IHtxedureINmAUZEJ3C_MATCH_lIST(CX)NTAINER  ;  in  out  MAPPING JJST.PTR; 

PARAM_UST :  in  PARAMETERS)  is 

NUM^OF.ARRAYS :  INTEGER; 
begin 

“  build  dynamic  arrays  to  store  String  and  Array  parameters 
NUM_OF_ARRAYS  :=  GET_STRING_AND_ARRAY_COUNT(PARAM_USD; 
if  NUM_OF_ARRAYS  >  0  then 

CONTAINiR  :=  new  MAPPING_UST(NUM_OF_ARRAYS); 
end  if; 

end  INmALIZE_QC_MATCH_UST: 


"  Loads  the  query  component  parameters  (not  actual 

-  parameters,  but  positional  location  in  an  array)  and  their 

-  corresponding  list  of  matched  software  base  component 

-  parameters.  If  a  query  component  parameter  has  no  corresponding 

-  matches  amongst  the  software  base  component  parameters 

-  then  no  overall  match  is  possible  and  the  process  for  this  particular 
--  software  base  component  can  be  terminated. 

procedure  LOAD_QC_PARAMErERS(CONTAINER  :  in  out  MAPPING_UST_PTR; 

QC_PARAM_UST  :  in  PARAMETERS; 

SBC.UST  :  in  POTENTlAL_MATCH_PTR; 
TYPE_OF_MATCH  :  in  MATCH.SWITCH: 
NO_MATCH_POSSIBLE :  in  out  BOOLEAN)  is 

QC_PTR  :  PARAMETERS  ;=  QC_PARAM_UST; 

SBC.PTR  :  POTENTIAL_MATCH_PTR  :=  SBC_UST; 

PTR  ;  VAUD.MATCH.LIST.PTR; 

NUM_OF_ARRAYS ;  INTEGER; 

MATCH  :  BOOLEAN; 
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begin 


NO_MATCH_POSSIBLE  ;=  FALSE; 
if  CONTAINER  /=  null  then 

-  go  through  qc  parameters 

NUM_OF_ARRAYS  :=  1; 

while  ((QC_PTR  h  nuU)  end  (NUM.OF.ARRAYS  <=  CONTAINER.SIZE)  and 
(not  NO_MATCH_POSSIBLE))  kx^ 

if  («3C_PTR.THE_TYPES  =  ARRAY.TYre)  or  «JC_PTR.THE_TYPE.S  = 
STRING.TYre))  then 


PTR  :=  null; 

NO_MATCH_POSSIBLE  :=  TRUE; 

for  INDEX  in  1 ..  SBC_PTR.siZE  loop  —  go  through  sbc  parameters 

if  ((SBC_PTR.P_LIST(INDEX).THE_TYPE.S  =  ARRAY.TYPE)  or 
(SBC_PTR.P_UST(INDEX).THE_TYPE.S  =  STRING.TYPE))  then 

-  see  if  the  two  parameters  match 

if  TYPE_OF_MATCH  =  INPUT31ATCH  then 

MATCH  :=  INPUT.PARAMETER.TYPES >IAP_OK((3C_PTR. 
SBC_PTR.P_UST(INDEX)); 

else 

MATCH  :=  OUTPUT_PARAMETER_TYPES_MAP_OK((X:_PTR, 
SBC_PTR.P_UST(1NDEX)); 

end  if; 

if  MATCH  then 

NO_MATCH_POSSIBLE  ;=  FALSE; 

"  add  matched  software  base  component  parameter  to 
••  linked  list 

if  (CONTAINER.P_UST(NUM_OF_ARRAYS)  =  nuU)  then 


-  initialize  list 

PTR  :=  new  VALID_MATCH_UST; 
PTR.THE_PARAMiTER  :=  INDEX; 

PTR.NEXT  :=  null; 

CONTAINER.P_UST(NUM_OF_ARRAYS)  :=  PTR; 
else 

"  append  to  list 

PTRJ^EXT  :=  new  VAUD_MATCH_UST; 

PTR  ;=  PTR.NEXT; 

PTR.THE_PARAMErER  :=  INDEX; 
PTR.NEXT:=nuU; 
end  if; 
end  if; 
end  if; 
end  loop; 
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NUM^OT-ARRAYS  :=  NUM_C«’_ARRAYS  + 1; 
end  if; 

QC_PTR  :=  QC_PntNEXT; 

end  loop; 
end  if; 

end  LOAD_QC_PARAMETCRS; 


-  This  procedure  examines  the  arrays  of  a  query  component  and  a 

-  software  base  component  and  determines  whether  each  query  component 

-  array  can  be  matched  against  a  distinct  array  in  the  software 

-  base  component.  If  so,  NO_MATCH  is  returned  as  FALSE.  If  not,  then 

-  NO_MATCH  is  returned  as  TRUE. 

procedure  MATCH_ARRAYS(QC_IN_PARAM_1JST  :  in  PARAMEIERS; 

QC_Oirr_PARAM_UST  ;  in  PARAMETERS; 

SBCJNJ>ARAM  UST  :  in  PARAMETERS; 
SBC_OUT_PARAM_UST :  in  PARAMETERS; 

NO_MATCH  :inoutBCX)LEAN)is 


QCJN.QC.OUT  :MAPPING_UST_PTR  ;=nuU; 
SBC_IN,  SBC.OUT :  POTENTIAL.MATCH.PTR  :=  nuU; 


begin 

MATCH_FOUND  :=  TRUE; 

"  build  dynamic  arrays  to  store  String  and  Array  parameters 
INmAlJZE_QC_MATCH_UST(Qv  /N.  QC JN_PARAM_1JST); 
INrnAlJZE_QC_MATCH_UST(QC_OUT.  QC_OUT_PARAM_LIST); 
lNrnAIJZE_SBC_PARAM_LIST(SBC_IN.  SBC_IN_PARAM_UST); 
INrnALIZE_SBC_PARAM_UST(SBC_OUT.  SBC_6uT_PARAM_LIST); 

"  Store  all  software  base  component  Array  and  String 

-  parameters  in  list 

LOAD_SBC_PARAMETERS(SBC_IN,  SBC_IN_PARAM_LIST); 
1jOAD_SBC_PARAMETERS(SBC_OUT,  SBC_OUT_PARAM^UST); 

-  Store  all  query  component  Array  and  String  parameters  in 
"  a  list  (not  the  actual  values,  just  their  representation  by 

”  a  list  index  position)  and  to  each  list  index  position,  attach 
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"  a  linked  list  of  all  software  base  component  Array  and  String 
”  parameters  that  match  the  query  component  parameter  represented 
-  by  that  list  index  position. 

LOAD_QC_PARAMEreRS(QCJN.  QC_IN_PARAM_UST.  SBC JN.  INPUTJS4ATCH.  NOJkiATCH). 

if  not  NO_MATCH  then  -  all  query  component  Array  and  String  input 

-  parameters  have  at  least  one  possible  mapping 

L0AD_QC_PARAMETERS(QC_0UT.QC_0UT_PARAM  ust.sbc  out.outputjaatch. 
NO_MATCH): 

if  not  NO_MATCH  then  --  all  query  component  Array  and  String  output 

-  parameters  have  at  least  one  possible  mapping 

if  (QC_IN  /=  null)  then 

--  search  for  solution  that  provides  valid  mapping  for  entire 
-  set  of  query  component  Array  and  String  input  parameters 
MATCH_FOUND  :=  FALSE; 

TREE_TRAVERSAL(QC_IN.  SBC.IN,  1); 

if  MATCH_FOUND  then 

if(QC_OUT/=nuU)then 

-  search  for  solution  that  provides  valid  mapping  for  entire 

-  set  of  query  component  Array  and  String  output  parameters 

MATCH.FOUND  :=  FALSE; 

TREE_TRAVERSAL(QC_OUT.  SBC.OUT,  1); 
end  if; 
end  if; 
end  if; 


else 


MATCH.FOUND  :=  FALSE; 
end  if; 

else 

MATCH.FOUND  :=  FALSE; 
end  if; 

if  MATCH.FOUND  then 
NO.MATCH  :=  FALSE; 
else 

NOJilATCH  :=TRUE; 
end  if; 

end  MATCH.ARRAYS; 
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ROUTINES  FOR 

FINDING  A  VAUD  GENERIC  INSTANTIATION 


-  Step  through  parameter  list  and  return  the  total  number  of 

-  parameter  types. 

function  OET_PARAMETER_(X)l)NT(PARAM  LIST :  PARAMETERS)  retum  INTEGER  is 
COUNT  :  INTEGER  :=0; 

UST.PTR ;  PARAMETERS  ;=  PARAM  UST; 


begin 

while  LIST_PTR  /=  null  loop 
COUNT  ;=  COUNT +1; 


UST_PTR UST^PTRUEXT; 


end  loop: 
return  COUNT; 

end  GET_PARAMETER_COUNT; 


.  Routines  Particular  to  the  Process  — 

---  of  Mapping  a  Query  Conq)onent  to  a  — 

—  Software  Base  Component  Once  the  — 

Generic  Instantiation  has  been  — 

Resolved. 
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"  initialize  the  dynamic  arrays.  Set  up  the  list  of  all 
-  software  base  component  parameters. 

procedure  lNlT2_SBC_PARAM_UST(CX»n'AINER  :  in  chu  P0TENT1AL_MATCH_FTR; 

PARAM  JUST :  in  PARAMETERS)  a 


NUM:  INTEGER: 


begin 

--  build  dynamic  arrays  to  store  parameters 
NUM  :=  GET_PARAMETER_COUNT(PARAMJUST); 
if  NUM  >0  then 

CONTAINER  :=  new  POTENTIAL31ATCH_LIST(NUM); 
end  if; 

end  INrr2_SBC_PARAM_UST; 


"  load  the  software  base  component  dynamic  arrays  with 
--  their  parameter  list  of  types 

procedure  IjOAD2_SBC_PARAMETERS(CONTAINER  :  in  out  P0TENT1AL_MATCH_PTR; 

PARAM_UST :  in  PARAMETERS)  is 

PTR :  PARAMETERS  :=  PARAM.UST; 

NUM:  INTEGER; 

begin 

”  load  the  dynamic  arrays 

if  CONTAINER  /=  null  then 
NUM  :=  1; 

while  ((PTR  /=  null)  and  (NUM  <=  CONTAINER.SIZE))  loop 

CONTAINER.P_UST(NUM)  :=  FIR; 

NUM:=NUM+1; 

PTR  :=  PTR  J>(EXT; 

end  loop; 
end  if; 

end  LOAD2_SBC_PARAMETERS; 


-  initialize  the  dynamic  arrays.  Becomes  array  of  query 

-  component  parameters.  Each  array  cell  has  an  attached  list 
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~  (Ul  software  base  component  parameters  that  match  the 
-  particidar  query  component  parameter  represented  by  the 
••  array  cell.  Initially  the  list  is  null. 

procedwelNm  QC_MATCHJLJST(CX)NTAINER  :  in  out  MAPPING.USTJ>TO; 

PARAM_IiST :  in  PARAMETERS)  is 

NUM ;  INTEGER: 
begin 

-•  build  dynamic  arrays  to  store  parameters 
NUM  :=  GET J>ARAMETER^COUNT(PARAM_LiST); 
if  NUM  >0  then 

CONTAINER  :=  new  MAPPING_IJST(NUM): 
end  if; 

end  INIT2_QCJ4ATCHJJST; 


"  Loads  the  query  component  parameters  (not  actual 

-  parameters,  but  positional  location  in  an  array)  and  their 

-  corresponding  list  of  matched  software  base  component 

"  parameters.  If  a  query  component  parameter  has  no  corresponding 
••  matches  amongst  the  software  base  component  parameters 

-  then  no  overall  match  is  possible  and  the  process  for  this  particular 
"  software  base  component  can  be  terminated.  It  is  important  to 

"  check  and  see  if  the  software  base  component  parameter  is  defined 
"  by  a  generic.  If  it  is,  then  when  matching  it  with  the  query 
--  conq>onent  parameter,  use  the  generic  instantiation  value  for  the 

-  software  base  parameter. 

procedure  LOAD2_(3C_PARAMETERS(CONTAINER  :  in  out  MAPPlNG_USr_PTR; 

QC_PARAM_UST  :  in  PARAMETERS; 
SBC_UST  :  in  POTENTIAL_MATCH_PTR; 
TYPE_OF_MATCH  :  in  MATCH.SWTTCH; 
NO_MATCH_POSSIBLE ;  in  out  BOOLEAN)  is 


QCJ>TR  :  PARAMETERS  :=  QC_PARAM_UST; 
SBC.PTR :  POTENTIAL_MATCH_PTR  :=  SBC.UST; 
pro  :  VALIDJ4ATCH_UST_PTR; 

NUM  :  INTEGER; 

MATCH  :  BOOLEAN; 

begin 

NOJdATCH.POSSIBLE  :=  FALSE; 
if  CONTAINER  /=  nuU  then 


-  go  through  qc  parameters 
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NUM  ;=  1; 

while  ((QC_Fni  /»  null)  and  (NUM  <=  CONTAINER.SIZE)  and 
(noc  NO_MATCH_POSSIBLE))  loop 


PTR:=null; 

NO>IATCHJPOSSIBL£  :=  TOUE; 

for  INDEX  in  1 ..  SBC_PTR.SIZE  loop  --  go  through  sbc  parameters 
--  see  if  the  two  parameters  match 

if  TYPE_OF_MATCH  =  INPUT_MATCH  then 
if  SBC_PTR.P_LIST(INDEX).DEFINED_P  Y.GENERIC.TYPE  then 

-  need  to  use  the  instantiated  value 

MATCH  :=  INPUT_PAIUMETER_TYPES_MAP_OK((3C_PTR. 
SBC_PTR.P_USTaNDEX).GENERIC_LINKii4AH>ING); 

else 

MATCH  :=  INPUT_PARAMETER_TYPES_MAP_OK((3C_PTR. 
SBC_PTR.P_UST(INDEX)): 

end  if; 

else  "  output  parameter  match 

if  SBC_PTR.P_UST(INDEX).DEFINEDJB  Y_GENERIC_TYPE  then 

--  need  to  use  the  instantiated  value 

MATCH  :=  OiriTUT_PARAMErreR^TYPESJtiAP_OK((3C_PTR. 
SBC_PTR.P_UST(INDEX).GENERIC_LINKAIAH»ING); 

else 

MATCH  :=  OUTPUT_PARAMETER_TYPES_MAP_OK(QC_PTR. 
SBC_PTR.P_UST(INDEX)); 

end  if; 

end  if; 

if  MATCH  then 

NO JtIATCH_POSSIBLE  :=  FALSE; 

-  add  matched  software  base  component  parameter  to 

-  linJxd  list 

if  (CONTAINER.P_UST(NUM)  =  nuU)  then 

-  initialize  list 

PTR  :=  new  VA1JD_MATCH_LIST; 

PTR.THE.PARAMETER  :=  INDEX; 

PTRNEXT  :=  null; 

CONTAINER.P_UST(NUM)  :=  PTR; 

else 
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•-  append  to  list 

PTR  JiEXT  :=  new  VALID_MATCH_LIST; 
m:=PTOJ<EXT; 
Fni.THE_PARAMETER  :=  INDEX; 
PTOJ'IEXT.=  niill; 
end  if; 
end  if; 
end  loop; 


NUM:=NUM  +  1: 


QC_PTR  :=  QC.PTR  J4EXT; 


end  loop; 
end  if; 

end  LOAD2_QC_PARAMErERS; 


-  This  procedure  examines  the  arrays  of  a  query  component  and  a 
--  software  base  component  and  determines  whether  each  query  component 
--  array  can  be  matched  against  a  distinct  array  in  the  software 
"  base  component.  If  so,  NO  MATCH  is  returned  as  FALSE.  If  not,  then 
"  NO_MATCH  is  returned  as  TRUE. 

procedure  COMPONENT_MATCH(QC_IN_PARAM_UST  :  in  PARAMETERS; 

QC_0UT_PARAM_1JST  :  in  PARAMETERS; 
SBC_IN_PARAM_UST  :  in  PARAMETERS; 
SBC_OUT_PARAM_UST :  in  PARAMETERS; 

NO_MA'rCH  :  in  out  BOOLEAN)  is 


QCJN,QC_OUT  ;  MAPPING_UST_PTR  ;=nuU; 
SBC_IN,  SBC.OUT :  POTENTIALJ^TCH.PTR  :=  nuU; 


begin 

MATCH_FOUND  :=  TRUE; 

--  build  dynamic  arrays  to  store  String  and  Array  parameters 
INIT2_QC_MATCH_UST(QC_IN,  QC_IN_PARAM_UST); 
INm_QC31ATCH  JJST(QC_OUT,  QC_OUT_PARAM_LIST); 
lNm_SBC_PARAM_UST(SBC_IN,  SBC_IN_PARAM_LIST); 
INIT2_SBC_PARAM_UST(SBC_0UT,SBC_0UT_PARAM_UST); 
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--  store  all  software  base  component  parameters  in  a  list 
L0AD2_SBCJ»ARAMEreRS{SBC_IN.  SBC JN.PARAM.UST); 
LOAD2_SBC_PARAMETERS(SBC_OUT.  SBC_OUT_PARAM_LISD; 

"  Store  all  query  component  parameters  in  a  list 

-  (not  the  actual  values,  just  their  representation  by 

-  a  list  index  position)  and  to  each  list  index  position, 

-  attach  a  linked  list  of  all  software  base  component 

-  parameters  that  match  the  query  component  parameter 

-  represented  by  that  list  index  position. 

L0AD2_QC_PARAMETERS(QC_IN,  QC_IN_PARAM_11ST.  SBCJS.  INPUTJUATCH.  NO_MATCH); 

if  not  NO  .MATCH  then  --  all  query  component  input  parameters 

-  have  at  least  one  possible  mapping 

LOAD2_QC_PARAMETERS(QC_OUT.  QC_OUT_PARAM_lJST,  SBC.OUT,  OUTPUTJ4ATCH, 
NO_MATCH); 

if  not  NO.MATCH  then  --  all  query  Component  output  parameters 

-  have  at  least  one  possible  mapping 

if  (QC_IN  /=  null)  then 

--  search  for  solution  that  provides  valid  mapping  for  entire 
”  set  of  query  component  input  parameters 
MATCH.FOUND  :=  FALSE; 

TREE_TRAVERSAL(QC_IN.  SBC_IN.  1); 

if  MATCH.FOUND  then 

if{QC.OUT/=null)  then 

--  search  for  solution  that  provides  valid  mapping  for 
-  entire  set  of  query  component  output  parameters 
MATCH.FOUND  :=  FALSE; 

TREE.TRAVERSAL(QC_OUT,  SBC.OUT.  1); 
end  if; 
end  if; 
end  if; 


else 


MATCH.FOUND  :=  FALSE; 
end  if; 

else 

MATCH.FOUND  :=  FALSE; 
end  if; 

if  MATCH.FOUND  then 
NO3IATCH  :=  FALSE; 
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elie 

N0J4ATCH  :=TRUE; 
end  if; 


end  COMPONENT.MATCH; 


—  Routines  Particular  to  the  Process 

—  of  Instantiating  Generics 


-  determines  whether  the  specified  INDEX  (representing  a  particular 

-  query  parameter)  is  already  represented  in  the  list 

function  NOT_MEMBER(ID  :  INTEGER; 

HEAD :  VALID_MATCH_UST_PTO)  return  BOOLEAN  is 

PTR  :  VALID_MATCH_UST_PTR  ;=  HEAD; 

NOT_A_MEMBER  :  BOOLEAN  :=  TRUE; 

begin 

while  ((PTR  /=  null)  and  (NOT_A_MEMBER))  loop 

if  (PTR.THE_PARAMETER  =  ID)  then 

”  it's  a  duplicate 

NOT.A.MEMBER  ;=  FALSE; 
end  if; 

PTR  :=  PTR  J4EXT; 
end  loop; 

return  NOT_A_MEMBER; 
endNOTJdEMBER; 
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-  initialize  the  dynamic  arrays.  Set  up  the  list  of  all 

-  query  component  parameters  to  be  used  when  instantiating 

-  the  generics. 

pra*dureI^^TIAIJZE_QC_INSTANTIA■^ON_UST(CONTAINER  :  in  out  P0TENT1AL_MATCH_PIK; 

QC_IN  :  in  PARAMETERS; 

QC.OUT  :  in  PARAMETERS; 

NUM_QC_IN  :  in  out  INTEGER; 

NUM_QC_OUT :  in  out  INTEGER)  is 


TOTAL_QCJ>ARAMS :  INTEGER; 
begin 

--  build  dynamic  arrays  to  store  query  component  parameters 

NUM_QC_IN  :=  GET_PARAMETER_COUNT(QCJN); 

NUM_QC_OUT  :=  GET_PARAMETER_COUNT(QC_OUT); 
TOTAL_QC_PARAMS  :=  NUM_QC_IN  +  NUM_QC_OUT; 

if  TOT AL_QC_PARAMS  >  0  then 

CONTAINER  ;=  new  POTENTIAL_MATCH_LIST(TOTAL_QC_PARAMS); 
end  if; 

end  INmAlJZE_QC_INSTANTIA'nON_UST; 


-  initialize  the  dynamic  arrays.  Set  up  the  list  of  all 

-  software  base  component  generic  parameters. 

procedure  INrnALIZE_SBC_GEN_PARAM_UST(CONTAINER  :  in  out  MAPFING_UST_PTO; 

SBC.GEN  ;  in  PARAMETERS)  is 


NUM_OF_GENERICS ;  INTEGER; 
begin 

-  build  dynamic  arrays  to  generic  parameters 

NUM_OF_GENERICS  :=  GET_PARAMETER_COUNT(SBC_GEN); 

if  NUM_OF_GENERICS  >  0  then 

CONTAINER  :=  new  MAPPING_UST(NUM_OF_GENERICS); 
end  if; 

end  INrriALIZE_SBC_GEN_PARAM_LIST; 
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--  load  the  query  component  dynamic  array  with  its  parameter  list 

-  of  input  arui  output  parameters.  Used  for  generic  instantiation. 

procedure  GEN_LX)AD_QC_PARAMETERS(CONTAlNER :  in  out  I<)TENT1AL_MATCH_PTR; 

QC_IN  :  in  PARAMETERS; 

QC_OUT  :  in  PARAMETERS)  is 

NEW_ID  :  PSDL_ID_PKG.PSDL_ID; 

PTR  :  PARAMETERS; 

NUM_OF_GENERICS :  INTEGER; 

begin 

-  load  the  dynamic  arrays 

if  CONTAINER  /=  null  then 

NUM_OF_GENERICS  ;=  1; 

PTR:=QC_IN; 

—  load  input  parameters 

while  ((PTR  /=  null)  and  (NUM_OF_GENERICS  <=  CONTAINER.SIZE))  loop 

CONTAINER.P_UST(NUM_OF_GENERICS)  :=  PTR; 

NUM_OF_GENERICS  :=  NUM_OF_GENERICS  1; 

PTR  :=  PTOJ^EXT; 

end  loop; 


PTR  :=  CJC.OUT; 

-  load  output  parameters 

while  ((PTR  /=  null)  and  (NUM_OF_GENERICS  <=  CONTAINER.SIZE))  loop 

CONTAINER.PJJST(NUM_OF_GENERICS)  :=  PTR; 

NUM_OF_GENERICS  :=  NUM_OF_GENERICS  +  1; 

PTR  :=  PTO.NEXT; 


end  loop; 
end  if; 

end  GEN_LOAD_QC_PARAMETERS; 


-  Loads  the  software  base  component  generic  parameters  (not  actual 

-  parameters,  but  positional  location  in  'fn  array)  and  their 

"  corresponding  list  of  instantiation  matched  query  component 
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--  parameters.  If  a  software  base  componera  generic  parameter  has 
-  no  corresponding  matches  amongst  the  query  component  parameters 
--  then  no  overall  match  is  possible  and  the  process  for  this  particular 
"  software  base  component  can  be  terminated. 

procedure  LOAD_GEN_PARAMETERS(CONTAINER  ;  in  out  MACTING.LIST.PTR: 

SBC_GEN_PARAM_UST :  in  PARAMETERS: 
QCJNSTANTIATIONS  .  in  POreNTlALJdATCH.PTR; 
SBC_IN_PARAM_UST  :  in  PARAMEIBRS; 
SBC_OUT_PARAM_UST :  in  PARAMETERS; 
NUM_QC_IN  :  in  INTEGER; 

NUM_QC_0UT  :  in  INTEGER; 
NO_MATCH_POSgBLE  :  in  out  BOOLEAN)  is 

GEN.PTR  :  PARAMETERS  :=  SBC_GEN_PARAM_IJST; 

QC.PTR  :  POTENTIAL_MATCH_PTR; 

PTR  :  VA1JD_MATCH_UST_PTR; 

SBC.PTR  ;  PARAMETERS; 

NUM_OF_GENERICS :  INTEGER; 

MATCH  :  BOOLEAN; 

begin 

NO_MATCH_POSSIBLE  :=  FALSE; 
if  CONTAINER  /=  nuU  then 

“  go  through  generic  parameters 

NUM_OF_GENERICS  :=  1; 

while  ((GEN.PTR  f=  null)  and  (NUM_OF_GENERICS  <=  CONTAINER.SIZE)  and 
(not  NO_MATCH_POSSIBLE))  loop 

PTR  :=  nuU; 

NO_MATCH_POSSIBLE  :=  TRUE; 

SBC_PTR  :=  SBC_IN_PARAM_UST; 
while  (SBC_PTR  /=  null)  loop 

if  ((SBC_PrR.DEFINED_B  Y_GENERIC_TYPE)  and  then  (SBC_PTR.GENERIC_LINK 
GEN_PTR))  then 

(3C_PTR  :=  QC_INSTANTIATIONS; 

for  INDEX  in  1 ..  NUM_QC_IN  loop  -  go  through  qc  in  parameters 

"  see  if  the  two  parameters  match 

MATCH  :=  INPUT_PARAMETER_TYPES_MAP_OK((y:_PTR.P_UST(INDEX). 
SBC_PTR); 

if  MATCH  then 

NO_MATCH_POSSIBLE  :=  FALSE; 

--  add  matched  query  component  parameter  to 

—  linked  list 

if  (CONTAINER.P_UST(NUM_OF_GENERICS)  =  null)  then 

-  initialize  list 

PTR  :=  new  VALID JdATCH.UST; 

PTR.THE_PARAMETER  :=  INDEX; 
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PTR.NEXT  ;=null; 

CONTAINER.P_UST(NUM_OFjGENERICS)  :=  PTR; 


else 

"  see  if  INDEX  (representing  a  particular  query 

"  component  parameter)  is  already  in  the  list 

if  (NOT_MEMBER(INDEX.  C01^AINER.P_LIST(NUM_0F_GENERICS)))  Ihen 

"  append  to  list 

PTR  J^EXT  :=  new  VALID_MATCH_LIST; 

PTR  ;=  PTRIIEXT; 

PTR.THE_PARAMETER  :=  INDEX; 

PTR.NEXT  ;=  nuU; 
end  if; 
end  if; 
end  if; 

end  loop; 

end  if; 


SBC.PTR  :=  SBC.PTR.NEXT; 

end  loop;  --  while  SBC  PTR  ( input  params) 

-  /=  null 


SBC.PTR  ;=  SBC_OUT_PARAM_UST; 
while  (SBC_PTR  /=  null)  loop 

if  ((SBC_PTR.DEFINED_BY_GENERIC_TYPE)  and  then  (SBC_PTR.GENERIC_LINK  = 
GEN.PTR))  then 

QC_PTR  :=  QC_INSTANTIATIONS; 

-  skip  over  qc  in  parameters  by  starting  INDEX  at 
-NUM_QCJN+1 

for  INDEX  in  (NUM_QC_IN  +  1) ..  (NUM_QC_OUT  +  NUM_QC_IN)  loop 

-  go  through  qc  out  parameters 

-  see  if  the  two  parameters  match 

MATCH  :=  OUTPUT_PARAMErER_TYPES_MAP_OK(QC_PTR.P_UST(INDEX), 
SBC.PTR); 

if  MATCH  then 

NO_MATCH_POSSIBLE  :=  FALSE; 

"  add  matched  query  component  parameter  to 
-  linked  list 

if  (CONTAINER.P_UST(NUM_OF_GENERICS)  =  nuU)  then 
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-  initialize  list 

PTR  :=  new  VALID_MATCH_UST; 

PTR.THE_PARAMETER  ;=  INDEX; 

PTR.NEXT  :=  null; 

C01^AINERP_LIST(NUM_0F_GENER1CS)  :=  PTR; 
else 

--  see  if  INDEX  (representing  a  particular  query 

-  component  parameter)  is  already  in  the  list 

if  (NOT_MEMBER(INDEX.  CONTAINER.P_LIST(NUM_OF_GENERICS)))  then 

-  append  to  list 

PTR  J^EXT  :=  new  VALID_MATCH_IJST; 

PTR  :=  PTRtlEXT; 

PTR.THE_PARAMETER  :=  INDEX; 

PTR.NEXT  :=  null; 

end  if; 
end  if; 
end  if; 

end  loop; 

end  if; 


SBC.PTR  :=  SBC_PTR.NEXT; 

end  loop;  --  while  SBC_PTR  (output  params) 

-  /=  null 


next  generic  parameter 
NUM_OF_GENERICS  :=  NUM_OF_GENERICS  +  1; 
GEN.PTR  :=  GEN_PTRJ'1EXT; 


end  loop; 
end  if; 


end  LOAD_GEN_PARAMETERS; 


-  This  function  takes  an  index  value  from  a  created  array  of 

-  generic  parameters  and  returns  a  pointer  to  the  actual 

-  generic  parameter  referenced  by  the  array  index  value 

function  GEr_GENERIC_PARAM_TO_INSTANTlATE(COUNT  :  INTEGER; 

PARAM_UST :  PARAMETERS) 
return  PARAMETERS  is 

INDEX  :  INTEGER  :=  COUNT; 

GEN.PTR :  PARAMETERS  :=  PARAM.UST; 
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b^in 

if  (INDEX  >  0)  then 
INDEX:s:INDEX-l: 

while  ((GEN.PTR  /=  null)  and  (INDEX  >  0))  kx^ 

GEN_PTR  :=  GEN.PTR  JlEXT; 

INDEX  :=  INDEX -1; 

end  loop; 

return  GEN_KtK; 

else 

return  null; 
end  if; 
exception 

when  CXDNSTRAINT_ERROR  => 

PUT_LINE("  •••  ERROR  occured  in  function  "); 

PUT_LINE("  GET_GENERIC_PARAM_TO_INSTANTIATE.“); 
raise ; 

end  GET_GENERIC_PARAM_TO_INSTANTlATE; 


-  The  "tree  traversal"  treats  the  linked  lists  of  matched  query 

"  component  parameters  as  a  tree  rooted  at  the  first  software  base 

-  component  parameter.  Conceptually,  the  tree  is  a  combinatoric 
"  explosion  of  all  possible  mappings  of  one  generic  parameter  to 
“  a  valid  query  component  parameter  (so  that  no  query  component 

-  parameter  is  used  more  than  once).  The  traversal  does  not  explore 

-  all  paths.  If  a  node  is  reached  that  selects  a  query  component 

-  parameter  that  was  already  selected,  no  lower  level  nodes  on  that 

-  path  need  to  be  visited.  Also,  the  tree  is  never  physically  built, 

"  just  logically  traversed.  This  helps  alleviate  potential  memory 

”  problems.  Backtracking  occurs  when  a  generic  parameter  (tree  level) 

-  is  reached  that  cannot  find  an  unused  query  parameter  from 
"  its  linked  list  of  valid  mappings.  In  the  worst  case  it  is 

-  estimated  that  the  number  of  paths  to  be  checked  is  N  factorial 
"  where  N  is  the  total  number  of  query  parameters. 

procedure  GEN_TREE_TRAVERSAL(GEN_UST  :  in  MAPPING.UST.PTR; 

QC_PARAM_USAGE  :  in  out  POTENTIAL_MATCH_PTR; 
QCJN_PARAM_UST  ;  in  out  PARAMETERS; 
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QC_OUT_PARAM_UST  :  in  out  PARAMETERS; 
SBC_IN_PARAM_LIST  ;  in  out  PARAMETERS; 
SBC_OUT_PARAM_LIST :  in  out  PARAMETERS; 
GEN_PARAM_UST  ;  in  out  PARAMETERS; 
LEVEL  :  in  INTEGER)  is 

NO_MATCH :  BOOLEAN  :=  TRUE; 

GENJTR  :  PARAMETERS; 

--  set  a  pointer  to  the  current  query  parameter  for  the 
--  current  generic  parameter 

QC.PTR  :VAUD_MATCH_LIST_PTR:=GEN_LIST.P_LIST(LEVEL); 
begin 


while  ((QC.PTR  /=  null)  and  (not  MATCH_FOUND))  loop 

if  (not  (3C_PARAM_USAGE.IS_MAPPED((3C_PTR.THE_PARAMETER))  *en 
"  generic  parameter  maps  to  query  parameter  that  has  not 
"  been  claimed  (mapped  to)  yet. 

(3C_PARAM_USAGEJS_MAPPED(«JC_PTR.THE_PARAMETER))  :=  TRUE; 

-  instantiate  the  generic 

GEN.PTR  :=  GET_GENER1C_PARAM_T0_INSTANT1ATE(LEVEL.  Ge4_PARAM_LIST); 
GEN_PTR.MAPPING  ;=  QC_PARAM_USAGE.P_UST((3C_PTR.THE_PARAMETER); 


if  (LEVEL  <  GEN_usT.siZE)  then  -  haven’t  reached  bottom 

GEN_TREE_TRAVERS  AL(GEN_UST,  (JC.PARAM.USAGE,  (JC_IN_PARAM_UST. 
(3C_OUT_PARAM_UST.  SBC_IN_PARAM_UST.  SBC_OUT_PARAM_UST, 
GEN_PARAM_UST,  LEVEL  + 1); 

"  backtracked  to  this  point,  now  will  try  next  qc  parameter 

-  in  the  list  so  must  reset  current  query  parameter 

-  mapped  to  by  this  generic  parameter  to  FALSE 

QC_PARAM_USAGE.IS_MAPPED((QC_PTR.THE_PARAMETER))  :=  FALSE; 

QC.PTR  :=  (JC.PTR.NEXT; 

"  also  need  to  de -instantiate  the  generic 

GEN.PTR  :=  GET_GENERIC_PARAM_TO_INSTANTIATE(LEVEL,  GEN_PARAM_UST); 
GEN.PTRMAPPING  :=  null; 


else 

-  We  have  a  scheme  that  successfully  instantiates  all 

-  generics.  Now,  based  on  these  instantiations,  see 

-  if  a  valid  mapping  between  the  query  and  software 

-  base  components  is  possible.  If  so,  COMPONENT J4ATCH 

-  sets  the  package  body  global  variable  MATCH  FOUND  to 

-  TRUE. 
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CC)MPC»<EOT3UTCH(QC JN_PARAMJUST.  QC_CXn'J»ARAMJLIST.  SBCJNJ>ARAMJUST. 
SBC_(XJT_PARAMJJST.  NO JHATCH); 

if  not  MATCH_FOUND  then 

”  'we  need  to  remove  the  hold  on  this  qc  parameter 

QC.PARAWLUSAGEJS JHAPreD((QC_PTR.THE_PARAMEreR)) FALSE; 

QC.PTR  ;=  QC.PTRNEXT; 

--  also  need  to  de-instantiate  the  generic 

GEN.PTO  ;=  GET_GENERIC_PARAM_T0JNSTANTIATE(LEVEL,  GEN_PARAM_LIST): 
GEN_PTRA1APPING  :=  null; 


md  if; 
end  if. 


eke 

-  try  the  next  query  component  parameter  in  the  list 

QC.PTR  ;=  QC.PTRNEXT; 


end  if; 
end  loop; 

end  GEN_TREE_TRAVERSAL; 


-  This  procedure  attempts  to  find  a  valid  mapping  between  a 

-  query  component  and  a  generic  software  base  component.  The 
”  valid  mapping  includes  finding  a  possible  instantiation  of 

-  the  generic  that  leads  to  a  valid  mapping  between  parameters. 

-  If  a  valid  mapping  is  found,  NOMATCH  is  returned  as  TRUE.  If 

-  not,  then  NO  MATCH  is  returned  as  FALSE. 

procedure  FlND_INSTANTIATION(QC  JN_PARAM_LIST  :  in  out  PARAMETERS; 

QC_0UT_PARAM_UST  :  in  out  PARAMETERS; 
SBC_IN_PARAM_UST  :  in  out  PARAMETERS; 
SBC_0UT_PARAM_UST  :  in  out  PARAMETERS; 
SBC_GEN_PARAM_LIST :  in  out  PARAMETERS; 
NO.MATCH  :  in  out  BOOLEAN)  is 

NUM_QC_IN.  NUM_QC_OUT :  INTEGER  ;=  0; 

SBC.GEN  ;  MAPPING_UST_PTR  :=nuli; 

QCJNSTANTIATIONS  :  POTENTIAL_MATCH_PTR  :=  nuU; 


begin 

MATCH.FOUND  :=  TRUE; 
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-  build  dynamic  arrays  to  store  generic  parameters 
"  and  their  valid  matches  (i.e.,  instantiations) 
INrnAUZ^.SBC_GEN_PARAM_LIST(SBC_GEN.  SBC.GEN.PARAMJJSD; 
INniAUZE_(y:_INSTANTIATION_LIST(QC JNSTANTIATIONS.  QC JN_PARAM_liST. 
QC.Oinr.PARAM JUST.  NUM.QC JW.  NUM_QC_OUT); 


••  Store  all  qc  parameters  that  could  instantiate  generic 

-  parameters 

GEN JjOAD.QC J»ARAMETERS(QCJNSTANTIATIONS.  QCJN J>ARAMJJST. 
QC_0UT_PARAM_USD; 

"  Store  all  software  base  component  generic  parameters  in 
--  a  list  (not  the  actual  values,  just  their  representation  by 

-  a  list  index  position)  and  to  each  list  index  position,  attach 
--  a  linked  list  of  all  query  component  parameters  that  match 
"  the  sofhi'nre  base  component  generic  parameter  represented 

-  by  that  list  index  position. 

LOAD_GEN_PARAMETERS(SBC_GEN.  SBC_GEN_PARAM_UST.  QC JNSTANTTATIONS, 
SBC_IN_PARAM_UST.  SBC_OUT_PARAM_UST,  NGM.QC JN,  NUM_QC_OUT.  NO.MATCH); 

if  not  NO.MATCH  then  --  all  Software  base  component  generic 
-  parameters  have  at  least  one  possible  mapping 

if(SBC_GEN^nuU)thcn 

--  search  for  solution  that  provides  valid  mapping  for  entire 
-  set  of  software  base  component  generic  parameters 
MATCH_FOUND  :=  FALSE; 

GEN_TREE_TRAVERSAL(SBC_GEN,  QC  JNSTANTTATIONS .  QC_IN_PARAM_UST. 
QC_OUT_P^UlAM_UST,  SBc3i_PARAM_UST.  SBC_OUT_PARAM_UST. 
SBC_GEN_PARAM_UST.  1); 


else 

MATCHJ'OUND  :=  FALSE; 
end  if; 

else 

MATCH_FOUND  :=  FALSE; 
end  if; 

if  M  ATCH_FOUND  then 
NO.MATCH  :=  FALSE; 
else 

NO3IATCH  :=TRUE; 
end  if; 
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end  FINU JNSTANIUTION: 
end  aPEIUTOiLMATCH_ROlJT1NES; 


-  Filename  /  Adla_Recognized_Types_Pkgai 

-  Date  /  6  June  93 

-  Author  /  Scott  Dolgoff 

-  System  /  Sun  SPARCstation 

-  Compiler  /  Verdix  Ada 

-  Description  /  This  package  defines  the  recognized  Ada  types  and 

/  provides  a  function  for  determining  if  a  speefied 
/  type  is  an  Ada  type. 


with  PSDL_ID_PKG; 
use  PSDLJD.PKG; 

IMckage  ADA_RECOGNIZED_TYPES_PKG  is 


--  function  to  determine  if  a  type  defined  in  a  PSDL  specification  is 
-  a  recognized  Ada  type  (if  not  then  it  must  be  a  user  defined  type) 
function  RECXX}NIZED_ADA_TYPE(TYPE_>rAME :  in  PSDLJD_PKG.PSDLJD) 

return  BOOLEAN; 


define  recognized  Ada  types 


PRTVATE.TYPE 

DISCRETE_TYPE 

ENUMERATION.TYPE 

BOOLEAN_TYPE 

CHARACTER.TYPE 

INTEGER.TYPE 

RANGE.TYPE 

NATURAL_TYPE 

POSmVE.TYPE 

ARRAY.TYPE 

STRING_TYPE 

DIGITS.TYPE 

FLOAT_TYPE 

DELTA_TYPE 

FKED.TYPE 


:  constant  STRING  :=  "PRIVATE"; 

:  constant  STRING  :=  "DISCRETE"; 

:  constant  STRING  :=  "ENUMERATION"; 
;  constant  STRING  ;=  "BOOLEAN"; 

:  constant  STRING  :=  "CHARACTER”; 

:  constant  STRING  :=  'INTEGER"; 

:  constant  STRING  :=  "RANGE"; 

:  constant  STRING  ;=  "NATURAL"; 

:  constant  STRING  ;=  "POSITIVE"; 

;  constant  STRING  :=  "ARRAY”; 

:  constant  STRING  :=  "STRING"; 

:  constant  STRING  :=  "DIGITS"; 

;  constant  STRING  :=  "FLOAT"; 

:  constant  STRING  :=  "DELTA"; 


;  constant  STRING  :=  "FIXED”; 
RECORD.TYPE :  constant  STRING  :=  "RECORD"; 
ACCESS.TYPE  :  constant  STRING  :=  "ACCESS"; 


--  define  special  types  treated  as  Ada  types 
-  they  are  initialized  in  the  package  body  {begin ..  end} 
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ARRAY_ELEM0<T_TYPE.  ARRAY  JNDEXJTVre ;  PSDLJD J»KG  J>SDL JD; 
end  ADA_RBCCX3N1ZED_TYPES_WCG; 


with  A_STRINGS,  TEXTJO; 
use  A^STRINGS,  TEXTJO; 

package  body  ADA_REC0GN1ZED_TYPES_PKG  is 


-  function  to  determine  if  a  type  defined  in  a  PSDL  specification  is 

-  a  recognized  Ada  type  (if  not  then  it  must  be  a  user  defined  type) 

function  REC0GNIZED_AD>L.TYPE(TYPE_NAME  :  in  PSDL_ID_HCG.PSDL_ID) 

return  BOOLEAN  is 

THE.TYPE.NAME :  A_STRINGS.A_STRING; 
begin 

THE_TYPE_NAME  :=  A^STRINGS.LOWER_TO_UPPER(TYre_NAME); 


if  (THE.TYPE Jf  AME.S  =  PRTVATE.TYPE)  or  (THE.TYre Jf  AMES  =  DISCRETE.TYPE)  or 
(THE_TYPE  NAME  S  =  ENUMERATION.TYPE)  or  (THE_TYPE_NAME.S  =  BOOLEAN.TYPE)  or 
(THE  TYPE  NAME  S  =  CHARACTER.TYPE)  or  (THE_TYPE_NAME.S  =  INTEGER_TYPE)  at 
(THE.TYPE  NAME  S  =  RANGE  TYPE)  or  (THE_TYPEJIAME.S  =  NATURAL.TYPE)  or 
(THE_TYPE_NAME.S  =  POSITTVE.TYPE)  or  (THE_TYPE_NAME.S  =  ARRAY.TYTC)  or 
(THE_TYPE_NAME.S  =  STRING.TYPE)  or  (THE.TYPEJ^AME.S  =  DIGITS.TYPE)  or 
(THE_TYPE_NAME.S  =  FLOAT_TYPE)  or  (THE_TYPE_NAME.S  *  DELTA.TYra)  or 
(THE_TYPE_NAME.S  =  FIXED.TYPE)  or  (THE_TYPE_NAME.S  =  RECORD.TYre)  or 
(THE_TYPE_NAME.S  =  ACCESS.TYPE)  then 
return  TRUE; 
else 

-  unrecognized  Ada  type 
return  FALSE; 
end  if; 

end  RECOGNIZED_ADA_TYPE; 


begin  --  package  body  initialization 

”  initialize  special  types  that  are  treated  as  Ada  types 
ARRAY_ELEMENT_TYPE  :=  new  A_STRINGS.STRING_REC(13); 
ARRAY_ELEMENT_TYPE.S  :=  "ARRAY.ELEMENT'; 
ARRAY_INDEX_TYPE  :=  new  A_STRINGS.STRING_REC(11); 
ARRAY JNDEX.TYPES  :=  "ARRAY JNDEX"; 


163 


end  ADA_RBC0GNIZED_TYPESJPKG; 


”  Filename  /  Add_Ada_Type_To_Signature.a 
--  Date  1 29  August  93 

-  Author  /  Scott  Dolgoff 

”  System  /  Sun  SPARCstation 
“  Compiler  /  Verdix  Ada 

-  Description  /  T/ui  package  encodes  a  specified 

I  Ada  type  into  a  software  component  signature. 


with  PSDL_©_PKG: 
use  PSDL_ID_PKG; 

padcage  ADD_ADA_TYPE_TO_SIGNATURE_PKG  is 

--  A  signature  has  24  total  regions  (7  are  generic) 
type  ALL.REGIONS  is  range  1  ..  24; 

--  For  matching  input  signatures,  the  first  18  regions  are  the 
"  most  important.  They  include  all  non-generic  regions  (1..17) 

"  and  the  generic  Private  region  (Region  18). 

subtype  INPUT.REGIONS  is  ALL_REGIONS  range  1 ..  1 8; 

"  For  matching  output  signatures,  the  first  17  regions  are  the 

-  most  important.  They  include  all  non-generic  regions  (1..17). 

-  The  generic  regions  are  examined  only  if  the  need  arises. 

subtype  OUTPUT.REGIONS  is  ALL.REGIONS  range  1 ..  17; 

-  Each  region  is  represented  by  a  32  bit  integer.  Thus  2^32  - 1 
~  type  instances  can  be  represented  by  a  single  region. 

type  SIGNATURE  is  aiiay(ALL_REGIONS)  of  INTEGER; 

"  When  encoding  a  signature,  it  is  necessary  to  know  which 

-  direction  in  the  subtype  hierarchy  you  must  travel.  In  other 

-  words,  are  you  concerned  with  subregions  or  super -regions. 
type  IO_SWITCH_CLASSES  is  (INPUT.PARAMETER,  OUTPUT.PARAMETER); 


--  This  procedure  adds  the 

-  Ada  type  passed  in  to  the  Signature  passed  in,  and  passes 
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••  out  the  newly  updated  Signature. 

procedure  ADD_ADA_TYre_TO_SIGNATURE(TYrejNAME  :  in  PSDLJD.PKG  J>SDLJD; 

THE_SIGNATURE :  in  out  SIGNATURE; 
lO.SWrrCH  inlO.SWrrCH.CLASSES; 
GENERIC.TVre  ;  in  BOOLEAN); 


-  This  MUST  be  called  prior  to  encoding  an  Operator  or  Type 
“  Signature.  Sets  initial  signatures  to  0. 

procedure  INrnAUZE_SIGNATURES(TOE_SIGNATURE ;  in  out  SIGNATURE); 


"  exceptions 

UNREC0GN1ZED_GENERIC_TYPE.  UNRECOGNIZED.TYPE :  exception; 
end  ADD_ADA_TYPE_TO_SIGNATURE_PKG; 
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wi*  A^STRINGS,  TEXTJO.  ADA_REC(X3N1ZED_TYPES_PKG; 
use  A^STRINGS.  TEXTJO,  ADA_RECOGNlZED_TYreS_PKG; 

pKksge  body  ADD_ADA_TYPE_TO_SIGNATURE_PKG  is 


-  Sets  initial  signatures  to  0. 

procedure  INrnAIJZE_SIGNATURES(THE_SlGNATURE :  in  out  SIGNATURE)  is 
begin 

for  REGION  in  ALL.REGIONS'FIRST ..  ALL.REGIONS  LAST  loop 
THE_SIGNATURE(REGION)  :=  0; 
end  loop; 

end  mniAlJZE.SIGNATURES; 


-  This  procedure  adds  a  type  instance  to  the  specified 

-  signature  region. 

procedure  ADD  1  TYPE  TO_REGION(REGION  :  in  ALL.REGIONS; 

THE.SIGNATURE ;  in  out  SIGNATURE)  is 


begin 


-  increment  number  of  type  instances  in  the  region  by  1 

THE_SIGNATURE(REGION) THE_SIGNATURE(REGION)  +  1; 


end  ADD_l_TYPE_TO_REGION; 


-  This  procedure  adds  the 

-  Ada  type  passed  in  to  the  Signature  passed  in.  and  passes 

-  out  the  newly  updated  Signature. 

procedure  ADD_ADA_TYPE_TO_SIGNATURE(TYPE_NAME  :  in  PSDL_ID_PKG.PSDL_ID; 

THE.SIGNATURE :  in  out  SIGNATURE; 
lO.SWTTCH  ;  in  IO_SWITCH_CLASSES; 
GEI'IERIC.TYPE  :  in  BOOLEAN)  is 


REGION! 

constant  ALL_REGIONS  :=  1 

-  Positive 

REGION2 

constant  ALL_REGIONS  :=  2 

-  Natural 

REGION3 

constant  ALL_REGIONS  :=  3 

-  Boolean 

REGION4 

constant  ALL_REGIONS  :=  4 

-  Character 

REGIONS 

constant  ALL_REGIONS  :=  5 

-  Range 

REGION6 

constant  ALL_REGIONS  :=  6 

-  Integer 
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REGION? 

:  constant  ALL.REGIONS : 

=  ?; 

REGIONS 

:  constant  ALL_REGIONS ; 

=  S; 

REGION9 

:  constant  ALL.REGIONS : 

=  9; 

REGIONIO 

:  constant  ALL.REGIONS 

=  10; 

REGICa^ll 

:  constant  ALL_REG1(^S 

=  11 

REGION12 

;  constant  ALL.REGIONS 

=  12 

REGION13 

:  constant  ALL.REGIONS 

=  13 

REGION14 

;  constant  ALL.REGIONS 

=  14 

REGIONIS 

:  constant  ALL.REGIONS 

=  15 

REGION16 

:  constant  ALL.REGIONS 

=  16 

REGIONl? 

:  constant  ALL.REGIONS 

=  1? 

REGIONIS 

;  constant  ALL.REGIONS 

=  18 

REGION19 

;  constant  ALL.REGIONS 

=  19 

REGION20 

;  constant  ALL_REGIONS 

=  20 

REGION21 

:  constant  ALL.REGIONS 

=  21 

REGION22 

:  constant  ALL_REGIONS 

=  22 

REGION23 

;  constant  ALL_REGIONS 

=  23 

REGION24 

;  constant  ALL_REGIONS 

=  24 

-  Enumeration 

-  Discrete 

-  Record 

-  Access 

-  String 

-  Array 
-Fixed 

-  Delta 

-  Float 

-  Digits 

-  Private 

-  generic  Private 

-  generic  Discrete 

-  generic  Range 

-  generic  Array 

-  generic  Digits 

-  generic  Delta 

-  generic  Float 


THE_TYPEJ^AME :  A_STRINGS.A_STRIN( 


begin 

THE_TYPE_NAME  ;=  A_STRINGS.IX>WEILTO_UPPER(TYPE_NAME); 
case  lO.SWITCH  is 
when  INPUT_PARAMETER  => 


if  ((PRIVATE.TYPE  =  THE_TYPE_NAME.S)  and  ~  generic  Private 

(GENERIC_TYPE))  then 

-  all  regions  are  included  as  the  pattern  for  this  type 

for  REGION  in  INPUT.REGIONS  FIRST ..  INPUT.REGIONS  LAST  loop 
ADD_l_TYPE_TO_REGION(REGION.  THE.SIGNATURE); 

Old  loop; 


ekif  (PRIVATE_TYPE  =  THE_TYPE_NAME.S)  then  -  Private 
ADD_1_TYPE_TO_REGION(REGION17.  THE.SIGNATURE); 

elsif  (DISCRETE.TYPE  =  THE_TYPE_NAME.S)  then 
-  regions  below  discrete  are  numbered  consecutively  from 
“  1  through  7. 

for  REGION  in  REGIONl  ..  REGIONS  loop 
ADD_l_TYPE_TO_REGION(REGION.  TOE.SIGNATURE); 
end  loop; 
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ifGENERIC.TYrethen 

add  information  to  particular  generic  type 
ADD_l_TYPE_TO_REGION(REGION19.THE_SIGNATURE); 
end  if; 

elsif  (ENUMERATION.TYPE  =  THE_TYPE_NAME.S)  then 
ADD_l_TYPE_TO_REGION(REGION7.  THE.SIGNATURE); 
also  add  Boolean  and  Character 
ADD_1_TYPE_T0_REG10N(REGI0N3.  THE_S1GNATURE); 
ADD_l_TYPE_TO_REGION(REGION4.  THE.SIGNATURE); 


ekif  (BOOLEAN.TYPE  =  THE_TYPE_NAME.S)  then 
ADD_1_TYPE_TO_REGION(REGION3.  THE.SIGNATURE); 


elsif  (CHARACTER.TYPE  =  THE_TYPE_NAME.S)  then 
ADD_l_TYPE_TO_REGION(REGION4.  THE.SIGNATURE); 


elsif  (INTEGER_TYPE  =  THE_TYPE_NAME.S)  then 
ADD_l_TYPE_TO_REGION(REGION6.  THE.SIGNATURE); 
add  Range,  Natural,  and  Positive 
ADD_l_TYPE_TO_REGION(REGION5.  THE_SIGNATURE); 
ADD_l_TYPE_TO_REGION(REGION2,  THE_SIGNATURE); 
ADD_l_TYPE_TO_REGION(REGIONl.THE_SIGNATURE); 


elsif  (RANGE.TYPE  =  THE_TYPE_NAME.S)  then 
ADD_l_TYPE_TO_RB  5ION(REGION5,  THE_SIGNATURE); 

ifGENERIC.TYPEthcn 

add  information  to  particular  generic  type 
ADD_1_TYPE_TO_REGION(REGION20,THE_SIGNATURE); 
end  if; 


elsif  (NATURAL_TYPE  =  THE_TYPE_NAME.S)  then 
ADD_1_TYPE_TO_REGION(REGION2.THE_SIGNATURE); 

add  Positive 

ADD_l_TYPE_TO_REGION(REGIONl .  THE_SIGNATURE); 

elsif  (POSmVE.TYPE  =  THE_TYPE_NAME.S)  then 
ADD_1_TYPE_TO_REGION(REGION  1 .  THE_SIGNATURE); 


elsif  (ARRAY_TYPE  =  THE_TYPE_NAME.S)  then 
ADD_l_TYPE_TO_REGION(REGION12.THE_SIGNATURE); 
add  String 

ADD_1_TYPE_TO_REGION(REGION1 1.  THE_SIGNATURE); 
if  GENERIC.TYPE  then 

add  information  to  particular  generic  type 
ADD_l_TYPE_TO_REGION(REGION21 .  THE_SIGN  ATURE); 
end  if; 


ekif  (STRING_TYPE  =  THE_TYPE_NAME.S)  then 
ADD_l_TYPE_TO_REGION(REGrONl  1,  THE_SIGNATURE); 


elsif  (DIGITS.TYPE  =  THE_TYPE_NAME.S)  then 
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ADD_l_TyPE_TO_REGION(RBGION16.  THE_SIGNATURE); 

"  add  Float 

ADD_l_TVPE_T0_REGION(RBGlON15.  THE_SIGNA7URE); 
if  GENERIC.TYPE  then 

"  add  irrformation  to  particular  generic  type 

ADD_1_TYPE_TO_REGION(REGION22.  TOE.SIGNATURE); 

elsif  (FLOAT.TYPE  =  THE_TYre_NAME.S)  then 
ADD_1_TYPE_TO_REGION(RBGION15.  THE_SIGNATURE); 

elsif  (DELTA  TYPE  =  TOE.TYPEJJAME.S)  then 
ADD_l_Tyre_TO_REGION(RBGION14.  THE^SIGNATURE); 

-  add  Fixed 

ADD_l_TYPE_TO_REGION(RBGION13.  THE^SIGNATURE); 
if  GENERIC.TYPE  then 

"  add  information  to  particular  generic  type 

ADD_1_TYPE_T0_REGI0N(REGI0N23.THE_SIGNATURE); 
end  if; 

elsif  (FDOED.TYPE  =  THE_TYPE_NAME.S)  dien 
ADD_1_TVTE_T0_REGI0N(RBG10N13.  THE.SIGNATURE); 

elsif  (RECORD.TYPE  =  THE.TYPE.NAME.S)  then 
ADD_1_TYpC.TO_REGION(REG10N9.  THE.SIGNATURE); 

ebif  (ACCESS.TYPE  =  THE.TYPEJ4AME.S)  then 
ADD.I.TYPE.TO.REGIONCREGIONIO.THE.SIGNATURE); 

if  GENERIC.TYPE  then 

--  add  information  to  particular  generic  type 

ADD.l.TYPE_TO.REGION(REGION24,THE_SIGNATURE); 
end  if; 


else 

raise  UNRECOGNIZED.TYPE; 
end  if; 


when  OUTPUT.PARAMETER  => 
if  GENERIC.TYPE  then 

if  (PRTVATE.TYPE  =  THE.TYPE.NAME.S)  then 
ADD.l.TYPE.TO.REGION(REGION  18.  THE.SIGNATURE); 

elsif  (DISCRETE.TYPE  =  THE.TYPE.NAME.S)  then 
ADD.1.TYPE_TO.REGION(REGION19.  THE.SIGNATURE); 

elsif  (RANGE.TYPE  =  THE.TYPE.NAME.S)  then 
ADD.1.TYPE.TO.REGION(REGION20.  THE.SIGNATURE); 

elsif  (ARRAY.TYPE  =  THE.TYPE.NAME.S)  then 
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ADD_l_TYre_TO_REGION(REGION21 .  THE.SIGN  ATURE); 

dsif  (DIGITS.TVre  =  TOE.TYPE J^AM^.S)  then 
ADD_l_TYPE_TO_REGION(REGION22.  THE.SIGN  ATURE); 


elsif  (DELTA_TYPE  =  THE_TyPE_NAME.S)  then 
ADD_1_TYPE_TO_REGION(REGION23.  THE.SIGNATURE); 

ekif  (ACCESS_TYPE  =  THE_TYPE_NAME.S)  then 
ADD_l_TYPE_TO_REGION(REGION24,  THE.SIGNATURE); 

else 

raise  UNRECOGNIZED_GENERIC_Tyra; 


end  if; 


dsif  (PRIVATE_TYPE  =  THE_TYPE_NAMES)  then 
ADD_l_TYPE_TO_REGION(REGION17.  THE.SIGNATURE): 

elsif  (DISCRETE.TYPE  =  THE.TYPE.NAME.S)  then 
ADD_l_TYPE_TO_REGION(REGION8.  THE.SIGNATURE); 


elsif  (ENUMERATTON.TYPE  =  THE.TYPE.NAME.S)  then 
ADD.l.TYPE_TO.REGION(REGION7.  THE.SIGNATURE); 

add  Discrete 

ADD.l.TYPE.TO_REGION(REGION8,  THE.SIGNATURE); 


elsif  (BOOLEAN.TYPE  =  THE.TYPE.NAME.S)  then 
ADD.l.TYPE.TO_REGION(REGION3,  THE.SIGNATURE); 
add  Enumeration,  Discrete 
ADD  l.TYPE  TO.REGION(REGION7.  THE.SIGNATURE); 
ADD  l.TYPE.TO  REGION(REGION8.  THE.SIGNATURE); 


dsif  (CH  ARACTER.TYPE  =  THE.TYPE.NAME.S)  then 
ADD.1.TYPE.TO.REGION(REGION4,  THE.SIGNATURE); 

add  Enumeration,  Discrete 
ADD.l_TYPE.TO_REGION(REGION7,  THE.SIGNATURE); 
ADD.l.TYPE.TO_REGION(REGION8.  THE.SIGNATURE); 


elsif  (INTEGER.TYPE  =  THE.TYPE.NAME.S)  then 
ADD_1.TYPE.TO_REGION(REGION6,  THE.SIGNATURE); 
add  Discrete 

ADD.l.TYPE_TO.REGION(REGION8,  THE.SIGNATURE); 

elsif  (RANGE.TYPE  =  THE.TYPE_NAME.S)  then 
ADD.l.TYPE_TO_REGION(REGION5,  THE.SIGNATURE); 
add  Integer,  Discrete 

ADD.1.TYPE.TO_REGION(REGION6,TH:LSIGNATURE); 
ADD_l.TYPE.TO.REGION(REGION8,  THE.SIGNATURE); 

elsif  (NATURAL.TYPE  =  THE.TYPE AME.S)  then 
ADD.l_TYPE.TO.REGION(REGION2,  THE.SIGNATURE); 
add  Integer,  Discrete 

ADD_1.TYPE.TO.REGION(REGION6,  THE.SIGNATURE); 
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ADD_1_TYPE_T0_REGI0N(REG10N8.  THE.SIGNATURE); 

eUif  (POSmVE  TYPE  =  THE_TyPE_NAME.S)  then 
ADD_l_TyPE_TO_REGION(REGIONl .  THE.SIGNATURE); 

--  add  Natural,  Integer,  Discrete 

ADD_1_TYPE_TO_REGION(REGION2.  THE.SIGNATURE); 
ADD_l_TYPE_TO_REGION(REGION6.  THE.SIGNATURE); 
ADD_l_TYPE_TO_REGION(REGION8,  THE_SIGNATURE): 

eJsif  (ARRA  Y_TYPE  =  THE_TYPE_NAME.S)  Aen 
ADD_l_TYre_TO_REGION(RBGION12.  THE.SIGNATURE); 


elsif  (STRING.TYPE  =  THE_TYPE_NAME.S)  then 
ADD_l_TYPE_TO_REGION(REGIONl  1.  THE.SIGNATURE); 
-  add  Array 

ADD_l_TYPE_TO_REGION(REGION12,  THE_SIGNATURE); 

elsif  (DIGrrs_TYPE  =  THE_TYPEJNAME.S)  then 
ADD_l_TYre_TO_REGION(REGION16.  THE_SIGNATURE); 


elsif  (FLOAT_TYPE  =  THE_TYPE_NAME.S)  Aen 
ADD_l_TYPE_TO_REGION(REGIONl5.THE_SIGNATURE); 
--  add  Digits 

ADD_1_TYPE_T0_REGI0N(REGI0N16.  THE_SIGNATURE); 

elsif  (DELTA.TYPE  =  THE_TYPE_NAME.S)  Acn 
ADD_l_TYPE_TO_REGION(REGION14.'raE_SIGNATURE); 

elsif  (FIXED  TYPE  =  THE_TYPE_NAME.S)Aen 
ADD_1_TYPE_TO_REGION(REGION13.THE_SIGNATURE); 
--  add  Delta 

ADD_1_TYPE_T0_REGI0N(REGI0N14,THE_SIGNATURE); 

elsif  (RECORD_TYPE  =  THE.TYPEJ^AME.S)  Aen 
ADD_1_TYPE_T0_REGI0N(REGI0N9.THE_SIGNATURE); 

elsif  (ACCESS.TYPE  =  THE_TYPE_NAME.S)  Aen 
ADD_1_TYPE_TO_REGION(REGION10,THE_SIGNATURE); 


else 

raise  UNRECOGNIZED_TTfPE; 
end  if; 


end  case; 


exception 

when  UNRECOGNIZED_TYPE  => 

PUT_LINE("***  ERROR  •**  CANNOT  ENCODE  SIGNATURE  WITH  "); 
PUT_LINE(THE_TYPE_NAME.S  & "  BECAUSE  FTIS  AN"); 
PUT_LINE(”UNRECOGNIZED  TYPE."); 
raise ; 
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when  UNRECCX»QZED_GENERIC_TYPE  -> 

PUTJLINE("***  ERROR  ••*  CANNOT  ENCODE  SIGNATURE  WITH  ”); 
PUTJJNE(TOE_TYPE_NAME.S  &  ”  BECAUSE  IT  CANNOT  BE“); 
PUTJJNE(“A  GENERIC  TYPE."); 
raise ; 


when  othm  => 

PUT_LINE("***  UNKNOWN  ERROR  FOUND  IN  procedure  "); 

PUTJLINE("ADD_ADA_TYPF_TO_SIGNATURE"); 

raise ; 

end  ADD_ADA^TYPE_TO_SIGNATURE; 
end  ADD_ADA^TyPE_TO_SIGNATUREJ»KG; 


--  Filename  /  ADT_Paraiiieter_Iterator_Pkg^ 

”  Date  /  30  August  93 
”  Author  /  Scott  Dolgoff 

"  System  /  Sun  SPARCstation 

-  Compiler  /  Verdix  Ada 

--  Description  /  This  program  encodes  the  signatures  of  software 
/  ADT  (type)  components  from  their  Prototype  System 

with  PSDL_ID_PKG.  PSDL_CONCRETE_TYre_PKG.  ADD_ADA_TYPE_TO_SIGNATURE_PKG. 
PSDL_COMPONENT_PKG; 

use  PSDLJD.HCG,  PSDL_CONCRETE_TYPE_PKG.  ADD_ADA_TYPE_TO_SIGNATURE_PKG, 
PSDL_COMPONENT_PKG; 

package  ITERATE_THROUGH_ADT_OreRATOR_PARAMETERS_HCG  is 

-  procedure  that  allows  this  package  additional  access  to  the  particular 

-  ADT  operator  whose  signature  is  being  calculated. 

procedure  PASS_ADT_OPERATOR(OP_COMPONENT :  in  PSDLjCOMPONENT.PKG.OPERATOR); 


-  procedure  passed  to  generic  scan  procedure  in  generic  map  package 

-  extracts  the  input  parameters  from  the  Type  Declaration 
-map 

procedure  GETJN_PARAMETER(ID  :  in  PSDL_ID_PKG.PSDL_ID; 

TYPE_NAME ;  in  PSDL_CONCRETE_TYPE_HCG.TYPE_NAME); 

“  iterate  through  the  Type  Declaration  map  to  extract  the  set  of  input 
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--  parameters. 

procedure  ITERATE_THROUGH_INPUT_PARAMEreRS  ii  nee 

PSDL_CONCRErE_TYPE_PKG.TyPE_DECLARATION_WCG.GENERIC_SCAN(GENERATE=>GErjN_PAR 
AMETER): 


"  procedure  passed  to  generic  scan  procedure  in  generic  map  package 
--  extracts  the  output  parameters  from  the  Type  Declaration 
-map 

procedure  GET_OUT_PARAMETER(ID  :  in  PSDL_|D_nCG.PSDL_|D; 

TYPE_NAME :  in  PSDL_CX)NCRETE_TYPE_PKG.TYPEJNAME): 


-  iterate  through  the  Type  Declaration  map  to  extract  the  set  of  output 

-  parameters. 

procedure  lTERATE_THROUGH_OUTPUT_PARAMETHlS  is  neer 

PSDL_CX)NCRETE_TyPE_PKG.TYPE_DECLARAT10N_PKG.GENERIC_SCAN(GENERATE=>GET_0UT_PA 
RAMETER); 


"  Encoded  input  and  output  signatures  are  returned  by  these 

-  procedures.  NOTE:  the  procedure  ITERATE JTHROUGH  xxx  PARAMETERS 

-  must  be  invoked  first  which  encodes  the  signature  value. 
procedure  GET_INPUT_SIGNATURE(IN_SIGNATURE :  out  SIGNATURE); 
procedure  GET_OUTPUT_SIGNATURE(OUT_SIGNATURE :  out  SIGNATURE); 

-  ♦**  This  MUST  be  called  prior  to  encoding  an  Operator  or  Type 

-  Signature.  Sets  initial  signatures  to  all  O's.  IO_SWrrCH 

-  tells  the  procedure  whether  you  need  to  initialize  the  irq)ut 

-  or  output  signature. 

procedure  INITIAlJZE_THE_SIGNATURESaO_SWITCH :  lO.SWTTCH.CLASSES); 

--  exceptions 

-  the  user  defined  type  of  an  Operator  input  or  output 

-  parameter  was  not  defined  in  the  Prototype  PSDL  specification 
UNDEFINED_USER_DEFINED_TYPE :  exception; 

"  the  type  used  to  define  a  user  defined  type  is  not  a 

-  valid  Ada  type 
INVAIJD_ADA_TYPE  :  exception; 


end  ITERATE_THROUGH_ADT_OPERATOR_PARAMETERS_PKG; 
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wiA  TEXTJO,  ADA_RECXX3N1ZED_TYPES_PKG.  PSDL_PROGRAM_PKG. 
LOAD_PSDL_INTO_ADA_STRUCrUREJPKG.  TYre_NAME_PKG.  A_SraiNGS; 
use  TEXTJO,  ADA_RECOGNlZED_TYPES_PKG,  PSDL_PROGRAM_PKG, 
LX)AD_PSDL^_INTO_ADA^STRUCTURE_HCG.  A_STR1NGS; 

package  body  ITERATE_THROUGH_ADT_OPERATOR_PARAMETERS_PKG  is 

INPUT.SIGNATURE,  OUTPOT.SIGNATURE  ;  SIGNATURE; 

GVJ^AME,  GV_UDT_NAME  ;  PSDL_CX)NCRETE_TYPE_PKG.TYPE_NAME; 

raOTOTYPE.SPEC  :  PSDL_PROGRAM_HCG.PSDL_PROGRAM: 

MAIN_TYPE_COMPONENT.  TYPE.COMPONENT ;  PSDL_COMPONENT_PKG.DATA_TyPE; 
OPERATOR.COMPONENT  :  PSDL_COMPONENT_PKG.OPERATOR; 


"  procedure  that  allows  this  package  additional  access  to  the  particular 
"  ADT  operator  whose  signature  is  being  calculated. 

procedure  PASS_ADT_OPERATOR(OP_COMPONENT :  in  PSDL.COMPONENT.PKG.OraRATOR)  is 


begin 

OPERATOR.COMPONENT  ;=  OP.COMPONENT; 


end  PASS_ADT_OPERATOR; 


--  Encoded  input  and  closeness  signatures  are  returned  by  this 
-  procedure.  NOTE:  the  procedure  ITERATE  THROUGH  JNPUTJARAMETERS 
"  must  be  invoked  first  which  encodes  the  signature. 
procedure  GET_INPUT_SIGNATURE(IN_SIGNATURE :  out  SIGNATURE)  is 

begin 

IN.SIGNATURE  :=  INPUT.SIGNATURE; 
end  GET_INPUT_SIGNATURE; 


"  Encoded  output  signature  is  returned  by  this 

procedure.  NOTE:  the  procedure 

ITERATE  THROUGH  OUTPUT JARAMETERS 
”  must  be  invoked  first  which  encodes  the  signature. 
procedure  GET_OUTPUT_SIGNATURE(OUT_SIGNATURE .  out  SIGNATURE)  is 

begin 

OUT.SIGNATURE  ;=  OUTPUT.SIGNATURE; 
end  GET_OUTPUT_SIGNATURE; 
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--  initializes  or  resets  signatures  so  new  ones  can  be  computed 

procedure  ENTIlAlJZE.THE.SlGNATURESaO.SWlTCH  :  lO.SWTTCH.CLASSES)  is 
begin 

cwelO.SWrrCHis 

when  INPUT_PARAMETER  => 

INrnALIZE_SIGNATURES(INPinLSIGNATUR© 

when  OUTPUT_PARAMETER  => 

INrnAlJZE_SIGNATURES(OlJTPUT_SIGNATURE); 

end  case; 

end  INrnAlJZE_THE_SIGNATURES; 


-  input  parameter  must  be  a  user  tinned  type  so  we  must  look 

-  up  its  Ada  type  representation  by  extracting  the 

-  user  defined  type  from  the  prototype  PSDL  specification 

procedure  GET..USER_DEFINED_TYPE(THE_TYrej4AME  in 

PSDL  CONCRETE_TYPE_PKG.TYPE_NAME: 

UDT.TYPEJiAME  in  out 

PSDL_CONCRETE_TVPE_PKG.TyPE_NAME)  is 
TYPE.MODEL :  PSDL.CONCRETnE.TYPE.PKGTYPE.DECLARATION; 


begin 


"  retrieve  the  type  component  specification 
TYPE.COMPONENT  :=  PSDL_PROGRAM_PKG.FETCH(PROTOTyPE_SPEC, 
THE_TYPE_NAMEJ<AME); 
if  TYPE_COMPONENT  =  null  then 
GV_NAME  :=  THE_TYPE_NAME; 
raise  UNDEFINED_USER_DEFINED_TYPE; 
end  if; 

-  get  the  corresponding  Ada  type  of  the  user  defined  type 

TYPE_MODEL  :=  PSDL_CX)MP0NEm'_PKGJ40DEL(TYPE_C0MP0NENT); 


UDT_TYPE_NAME:= 

PSDL_CONCREHE_TyPE_PKG.TYPE_DECLARATION_PKG.FETCH(TYPE_MODEL. 

THE_TYPEJ4AMEJIAME); 

-  Ensure  type  was  d^ned.  If  not.  then  ruything  was  fetched. 
if  TYPE_NAME_PKG  •=’■  (UDT_TYPE_NAME.  TYPE_NAME_PKGJRJLL_TVPE)  Aen 
GV  AME  :=  THE.TYPE.NAME; 
raise  UNDEFINED_USER_DEFINED_TYPE; 
end  if; 
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-  type  of  the  UDT  must  be  a  valid  Ada  type 
if  not  RECCXjNIZED_ADA_TyPE(UDT_TYPE_>IAMEJ4AME)  thm 
GV_NAME  :=  THE_TYrej<AME; 

GV_UDT_NAME  :=  UDT_TYre_NAME; 
raise  INVALID. AD A_TYPE; 
end  if; 

end  GET_USER_DEFINED_TYPE; 


"  Search  through  the  type  declaration  section  of  the  ADT  to  see 
"  if  the  Ada  type  we  are  looking  for  is  defined  as  one  of  the 
-  Type's  ADTs. 

procedure  CHECK_ADT_ADTS(THE_TYPE_NAME :  in  PSDL_CONCRETE_TYPE_PKG.TYPEJ<AME; 

ADT_TYPE_NAME :  in  out  PSDL.CONCRETE.TYPE.PKG.TYre.NAME; 
FOUND.TYPE  :  out  BOOLEAN)  is 

TYPE_MODEL :  PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARATION; 
begin 

”  use  the  Type  component 

TYPE.COMPONENT  ;=  MAIN.TYPE.COMPONENT; 

”  try  to  get  the  corresponding  Ada  type  of  the  unknown  type 

TYPE.MODEL  :=  PSDL_CX)MPONENT_PKG>iODEL(TYPE_COMPONENT); 

ADT_TYPE_NAME  := 

PSDL_CX)NCRETE_TYPE_HCG.TYPE_DECLARA'nON_PKG.FErCH(TYPE JSIODEL. 
THE_TYPE_NAMEJ<AME); 

-  Ensure  type  was  defined.  If  not,  then  nothing  was  fetched. 
if  TYPEJ>iAME_PKG."='  (ADT_TYPE_NAME,  TYPEJIAME_PKGNULL_TYPE)  then 
FOUND.TYPE  :=  FALSE; 
else 

FOUND.TYPE  :=  TRUE; 


-  type  of  the  ADT  must  be  a  valid  Ada  type 
if  not  RECOGNIZED_ADA_TYPE(ADT_TYPE_NAME.NAME)  then 
GV_NAME  ;=  THE.TYPE.NAME; 

GV.UDTJ^AME  :=  ADT_TYPE_NAME; 
raise  INVALID_ADA_TYPE; 

end  if; 

end  if; 

end  CHECK_ADT_ADTS; 
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"  Looks  through  the  generic  parameters  of  a  Type  or  Operator  to 
“  see  if  an  unrecognized  type  is  defined  as  an  Ada  type  there. 

procedure  CHECK_GENERICS(COMPONENT  :  in  out  PSDL_COMPONENT_PKGPSDL_CX)MPONENT; 

UNKNOWN_TYPE_>lAME  in  out 

PSDU_CONCRETE_TVPE_PKG.TYPEJ<AME; 

GENERIC_TYPE_NAME ;  in  out  PSDL.CONCRETE.TYre.PKG.TYPEJ^AME; 
FOUND.TTra  :  out  BOOLEAN)  is 

GENERIC JdODEL :  PSDL_C0NCRETC_TYPE_PKG.TYre_DECLARAT10N; 

COMP_NAME  :  PSDL_ID_PKG.PSDL_ID; 

begin 


“  Get  the  generic  parameters. 

GENERIC.MODEL  :=  PSDL_COMPONL»,T_PKG.GENERlC_PARAMETERS(COMPONENT); 

if  not  PSDL_CONCRETE_TYPE_PKG.EQUAL(GENERIC_>10DEL. 
PSDL_CONCRETE_TYPE_PKG.EMPTY_TYPE_DECLARATION)  then 

-  get  the  corresponding  Ada  type  of  the  corresponding  unknown  type 

GENERIC_TYPE_NAME  := 

PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARA'nON_PKG.FETCH(GENERIC3!ODEL, 

UNKNOWN_TYPE_NAMENAME); 

-  Ensure  unknown  type  was  defined.  If  not,  then  nothing  was  fetched. 
if  TYPE.NAME.PKG  •=•■  (GENERIC_TYPE_NAME.  TYPE_NAME_PKGJWLL_TYPE)  then 
“  will  have  to  check  something  other  then  generics 
FOUND.TYPE  :=  FALSE; 

else 

“  type  of  the  GENERIC  must  be  a  valid  Ada  type 

if  RECOGNlZED_ADA_TYPE(GENERIC_TYra_NAME.NAME)  then 
FOUND.TYPE  :=  TRUE; 
else 

GV_NAME  :=  UNKNOWN_TYPE_NAME; 

GV_UDT_NAME  :=  GENERIC_TYPE_NAME; 
raise  INVALID_ADA_TYPE; 
end  if; 
end  if; 


else 

--  will  have  to  check  something  other  then  generics 
FOUND_TYPE  :=  FALSE; 
end  if; 

end  CHECK_GENERICS; 


jsocedure  ENCODE. ADA_TYPE_INTO_SIGNATURE(TYPE.NAME_ID  :  in  PSDL_ID_PKG.PSDL_ID; 

lO.SWTTCH  :  in  lO.SWTTCH.CLASSES; 
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begin 

ciselO.SWrrCHis 


GB^ERlC.TYre ;  in  BOCflJSAN)  is 


when  1NPUT_PARAMETER  => 

ADD ja)A_TYPE_TO_SIGNATURE(TYPE_NAME_ID.  INPUT.SIGNATURE,  lO.SWTTCH. 
GENERIC.TYPE); 


when  OUTPUT.PARAMETER  => 

ADD_ADA_TYPE_TO_SIGNATURE(TYPE_NAME_ID.  OUTPUT.SIGNATURE,  lO.SWTTCH, 
GENERIC.TYPE); 

end  case; 

end  ENCODE_ADA_TYPE_INTO_SIGNATURE; 


-  procedure  passed  to  generic  scan  procedure  in  generic  map  package 

-  extracts  the  input  parameters  from  the  Type  Declaration 

”  map.  NOTE  that  this  procedure  will  be  run  once  for  each  input 

-  parameter  as  the  entire  set  of  input  parameters  is  iterated  through. 

procedure  GET_IN_PARAMET1ER(ID  :  in  PSDL_ID_PKG.PSDL_ID; 

TYPE.NAME :  in  PSDL_CONCRETE_TYPE_PKG.TYPE_NAME)  is 

ADT_TYPE_NAME.  GENERIC_TYPE_NAME.  THE_TyPE_NAME.  UDT_TYPE_NAME : 
PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 

"  User  Defined  Type  (UDT)  type  name 

lO.SWITCH 

IO_SWITCH_CLASSES; 

GENERIC.TYPE,  FOUND.TYPE  :  BOOLEAN; 


begin 

IO_SWITCH  :=  INPUT_PARAMETCR; 

THE_TYPE_NAME  :=  TYPE.NAME; 

GENERIC.TYPE  :=  FALSE; 

if  RECOGNIZED_ADA_TYPE(THE_TYPE_NAME.NAME)  then 

"  Input  parameter  is  a  valid  Ada  type  so  go  ahead  and  encode 

-  the  current  Input  Signature  with  this  Ada  type. 

THE.TYPE.NAMEJ^AME  :=  A_STRINGS.LOWER_TO_UPPER(THE_TYPE_NAMEJ4AME); 
ENCODE_ADA_TYPE_INTO_SIGNATURE(THE_TYPE J4AME>lAhffi.  lO.SWITCH. 
GENERIC.TYPE); 

else 

-  Maybe  the  parameter  is  defined  in  the  generics  of  the 
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-  Operator  component. 

CHECK_GENERICS(OPERATOR_CX)MPONENT.  THE_TYra_NAME.  GENERIC.TYPE.NAME, 
FOUNdLtYPE); 

ifFOUND.TYPEthen 

UDT_TYPE_NAME  :=  GENERIC_TYPE_NAME; 

GENERIC_TYPE  :=  TRUE; 


else 

-  Maybe  the  parameter  is  defined  in  the  generics  of  the 
--  Type  component. 

CHECK^GENERICS(MAIN_TyPE_COMPONENT.  THE_TYPE_NAME,  GENERIC_TYPEJ4AME. 
FOUND.TYPE); 

ifFOUND.TYPEthen 

UDT.TYPE JIAME  ;=  GENERIC.TYPEJIAME; 

GENERIC.TYPE  .=  TRUE; 

else 

--  Maybe  the  parameter  is  defined  in  the  type  declaration 
—  block  of  the  Type  component  (i.e.  it  is  one  of  the  Type 
"  component's  ADTs. 

CHECK_ADT_ADTS(THE.TYPE_NAME.  ADT_TYre_NAME,  FOUND.TYPE); 

ifFOUND.TYPEthen 
UDT.TYPE.NAME  :=  ADT.TYPE.NAME; 


else  --  The  parameter  must  be  a  user  defined  type  so 
--  get  its  type. 

GET_USER_DEFINED.TYPE(THE_TYPE_NAME.  UDT.TYPE.NAME); 

end  if; 
end  if; 
end  if; 

UDT.TYPE.NAME.NAME  :=  A_STRINGS.IjOWER_TO.UPreR(UDT_TYPE.NAMEJ^AME); 
"  go  ahead  and  encode  into  the  current  Input  Signature. 
ENCODE.ADA_TYPE_INTO_SIGNATURE(UDT_TYPE_NAMEJ4AME.IO.SWITCH. 
GENERIC.TYPE); 

end  if; 


exception 


when  UNDEFINED.USER.DEFINED.TYPE  => 

PUT.UNEC  ***  ERROR:  "  &  GV.NAMENAME.S  &  '  IS  A  USER  DEFINED"); 
PUT.LINE(  TYPE  THAT  IS  NOT  DEFINED  IN  THE  PROTOTYPE  PSDL"); 
PUT.LINE("SPEanCATION.  THIS  MEANS  IT  IS  EITHER  NOT  INCLUDED"); 
PUT.LINE( "AS  A  SEPARATE  TYPE  sreCfflCATION.  OR  IF  IT  IS,  IT  IS"); 
PUT.LINE("NOT  DEFINED  AS  AN  ADA  TYPE  WITHIN  TOE  TYTO  SPECfflCATION"); 
PUT.LINE(  TT  IS  ALSO  POSSIBLE  THAT  EITHER  ARRAY.ELEMENT  OR"); 
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PUTJJNBrARRAY  JKOEX*  WAS  REQUIRED  BUT  NOT  USED  AS  iraNTIFIBtS.'O; 

NEWJLINE; 

raise  ; 

when  INVALID.  ADA-TYre  => 

PUTJJNE(”***  ERROR:  INVALID  ADA  TYPE  DISCOVERED  FOR 
PUT_LINE("  "  &  GV_NAMEJ^AME.S  &  “ :  ”  &  GV.UDT.NAMENAMES); 

PUT_LINE(" A  Type  MUST  BE  DEFINED  AS  AN  ADA  TYPE  IT  CAN  REFHIENCE”); 
PUTJLJNE( "INFORMATION  IN  ITS  GENERIC  PARAMETERS.  BUT  CANNOT-); 
PUT_LINE(  -REFERENCE  DEFINITION  INFORMATION  OUTSIDE  ITS  OWN"); 
PUT_LINE("SPECIFICA’nON.  A  Generic  PARAMETER  MUST  BE  FULLY  "); 
PUT_LINE("DEFINED  AS  AN  ADA  TYPE.  IT  CANT  EVEN  REFERENCE  OTHER  "); 
PUT.UNEC’DEFINrnONS  WITHIN  ITS  GENERICS."); 

NEW_LINE; 
raise ; 


when  ADD_ADA_TYPE_TO_SIGNATURE_PKG.UNRECOGNIZED_TYPE  => 
raise ; 


when  others  => 

PUT_LINE("***  UNKNOWN  ERROR:  OCCURED  IN  procedure  "); 
PUT_LINE("  GET.IN.PARAMETER.  "); 

NEW.UNE; 
raise ; 


end  GETJIN.PARAMETER; 


--  procedure  passed  to  generic  scan  procedure  in  generic  map  package 
“  extracts  the  output  parameters  from  the  Type  Declaration 
--  map.  NOTE  that  this  procedure  will  be  run  once  for  each  output 
"  parameter  as  the  entire  set  of  output  parameters  is  iterated  through. 
procedure  GET.OUT.PARAMETERaD  :  in  PSDL_ID_PKG.PSDL_ID; 

TYPE_NAME :  in  PSDL.CONCRETE.TYPE.PKG.TYPE.NAME)  is 


ADT.TYPE.NAME,  GENERIC.TYPE.NAME,  THE.TYPE.NAME,  UDT.TYPE.NAME : 
PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 

"  User  Defined  Type  (UDT)  type  name 

lo.swrrcH 

lO.SWrrCH.CLASSES; 

GENERIC.TYPE,  FOUND.TYPE  ;  BOOLEAN; 


begin 

lO.SWTTCH  ;=  OUTPUT.PARAMETER; 

THE.TYPE.NAME  :=  TYPE.NAME; 

GENERIC.TYPE  .=  FALSE; 

if  RECOGNIZED.ADA.TYPE(THE.TYPE.NAME.N  AME)  then 

-  Output  parameter  is  a  valid  Ada  type  so  go  ahead  and  encode 

-  into  the  current  Output  Signature. 
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THE_TYPE_NAMEJ^AME  :=  A_STRINGS.LOWER_TO_UPPER(THE_TYPE_NAMEJ^AME); 
ENCODE_ADA_TYPE_INTO_SIGNATURE(THE_TYPE_NAMEJ4AME.IO_SWrrCH. 
GENERIC_TYPE); 

else 

--  Maybe  the  parameter  is  defined  in  the  generics  of  the 
-  Operator  component. 

CHECK_GENERICS(OPERATOR_COMPONENT.  THE_TYPE_NAME.  GENERIC_TYPE_NAME. 
FOUND_TYPE); 

if  FOUND.TYPE  then 

UDT_TYPE_NAME  :=  GENERIC_TYPE_NAME; 

GENERIC  TYPE  :=  TRUE; 


else 

--  Maybe  the  parameter  is  defined  in  the  generics  of  the 
-  Type  component. 

CHECK_GENERICS(MAIN_TYPE_COMPONENT.  THE_TYPE_NAME.  GENERIC_TYTC_NAME. 
FOUND_TYPE); 

if  FOUND.TYPE  then 

UDT_TYPE_NAME  .=  GENERIC_TYPE_NAME; 

GENERIC_TYPE  :=  TRUE; 

else 

--  Maybe  the  parameter  is  defined  in  the  type_declaration 
--  block  of  the  Type  component  (i.e.  it  is  one  of  the  Type 
-  component’s  ADTs. 

CHECK_ADT_ADTS(THE_TYPE_NAME.  ADT_TYPE_NAME.  FOUND.TYPE); 

ifFOUND_TYPEthen 
UDT_TYPE_NAME  :=  ADT_TYPE_NAME; 

else  --  The  parameter  must  be  a  user  defined  type  so 
-  get  its  type. 

GET_USER_DEFINED_TYPE(THE_TYPE_NAME,  UDT_TYPE_NAME); 


end  Lf; 
end  if; 
end  if; 


UDT_TYre_NAME.NAME  :=  A_STRINGS.LOWER_TO_UPreR(UDT_TYPE_NAME.NAME); 

”  Go  ahead  and  encode. 

ENCODE_ADA_TYPE_INTO_SIGNATURE(UDT_TYPE_NAMEJ<AME.IO_SWrrCH, 
GENERIC.TYPE); 
end  if; 


exception 
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when  UNDEFINED_USEILDEFINED_TYPE  => 

PUT_UNE("***  ERROR:  '  &  OV.NAMEJJ  AME-S  &  ”  IS  A  USER  DEFINED"); 
PUT_UNE(’TYPE  THAT  IS  NOT  DEFINED  IN  THE  WlOTOTYre  PSDL"); 
PUT_LINE("SPECinCATION.  THIS  MEANS  FTIS  EITHER  NOT  INCLUDED"); 
PUTJLINE("  AS  A  SEPARATE  TYPE  SPECIFIC  ATION,  OR  IF  IT  IS.  IT  IS"); 
PUT_LINE("NOT  DEFINED  AS  AN  ADA  TYPE  WITHIN  TOE  TYPE  SraaFICATlON"); 
PUT_LINE("IT  IS  ALSO  POSSIBLE  THAT  EITHER  ARRAY.ELEMENT  OR"); 
PUT_LINE(  "ARRAYJNDEX’  WAS  REQUIRED  BUT  NOT  USED  AS  IDENTIFIERS."); 
NEW_LINE; 
raise ; 


when  INVALID_ADA_TYPE  => 

PUT_LINE("***  ERROR:  INVALID  ADA  TYPE  DISCOVERED  FOR -"); 

PUT_LINE("  "  &  GVJiAMEHAME-S  &  " :  "  &  GV_UDT_NAME.NAME.S); 

PUT_IJNE("A  Type  MUST  BE  DEFINED  AS  AN  ADA  TYPE.  IT  CAN  REFERENCE"); 
PUT_LINE("INFORMATION  IN  ITS  GENERIC  PARAMETERS.  BUT  CANNOT"); 
PUT_LINE("REFERENCE  DEFINITION  INFORMATION  OUTSIDE  ITS  OWN"); 
PUT_LINE("SPECinCATION.  A  Generic  PARAMETER  MUST  BE  FULLY "); 
PUT.UNEC'DEFINED  AS  AN  ADA  TYPE.  IT  CANT  EVEN  REFERENCE  OTHER "); 
PUT_LINE("DEFINrnONS  WITHIN  ITS  GENERICS.”); 

NEW.LINE: 
raise ; 

when  ADD_ADA_TYPE_TO_SIGNATURE_PKG.UNRECOGNIZED_TYPE  => 
raise ; 


when  others  => 

PUT_LINE("***  UNKNOWN  ERROR:  OCCURED  IN  procedure  "); 
PUT_LINE("  GET.OUT.PARAMETER.  "); 

NEW.LJNE; 
raise ; 


end  GET_OUT_PARAMETER; 


BEGIN  MAIN 


begin 


”  Provides  access  to  the  stored  Type  component. 

RETRIEVE_TYPE_COMPONENT(MAIN_TYPE_COMPONEND; 

"  Provides  access  to  the  stored  prototype  specification. 

RETRIEVE_PROTOTYPE_SPEC(reOTOTYPE_SPEC); 


endITERATE_THROUGH_ADT_OPERATOR_PARAMETERS_PKG; 
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--  Filename  /  Build_Operator_Wrapper_ncg.a 

”  Date  /  3  Sep  93 

-  Author  /  Scott  Dolgoff 

-  System  /  Sun  SPARCstation 

-  Compiler  /  Verdix  Ada 

-  Description  /  This  package  creates  a  “wrapper"  package  for  a 

/  software  base  component  that  allows  the  component 
!  to  be  integrated  into  a  CAPS  prototype  system. 

with  PARAMErER_LIST_PKG; 
use  PARAMETER_UST_PKG; 

package  BUILD_OPERATOR_WRAPPER_PKG  is 

-  creates  the  tran^ormation  shell  from  the  valid  final  mapping 

-  between  query  and  software  base  components.  This  shell  becomes 

-  the  Ada  package  the  prototype  designer  works  with. 

procedure  BU1LD_0PERAT0R_WRAPPER(QC_IN_PARAM_UST  :  in  PARAMETERS; 

QC.OUT  PARAM.UST  :  in  PARAMETERS; 
SBCJN_PARAM_UST  :  in  PARAMETERS; 
SBC_OUT_PARAM_LIST ;  in  PARAMETERS; 
GEN_PARAM_UST  ;  in  PARAMETERS; 
QC_OPERATX)R_NAME  :  in  STRING; 
SBC_OPERATOR_NAME  :  in  STRING); 

end  BUILD_OPERATOR_WRAH>ER_PKG; 


with  TEXTJO,  ADA_RECOGNIZED_TYPES_PKG,  PSDLJD.PKG; 
use  TEXTJO,  ADA_RECOGNIZED_TYPES_PKG,  PSDL_ID_PKG; 

padcage  body  BUILD_OPERATOR_WRAPPER_PKG  is 

-  create  structure  for  eliminating  duplicate  "with"  statements 
--  or  duplicate  type  declarations 

type  NODE; 
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DUP_PTR  is  access  NODE; 

type  NODE  is  record 

ID  :  PSDL_ID_PKG.PSDL_ID; 
NEXT:DUP_PTO:=nuU; 

end  record; 


FILE_raEFIX  :  STRING(1 ..  6)  :=  "proto.”; 

FILE_SUFFIX  :  STR1NG(1  ..  2)  :=  ".s"; 

SBCJ>KG_SUFFa  :  STRING(1 ..  3)  :=  “_SB”; 

PKG.SUFEDC  ;STRING(1  ..4)  :="_PKG"; 
GENERIC_pKG_PREFIX  :  STRING(1 ..  4)  :=  "TMP_"; 
DUMMY_SUFFD(  ;  STRING(1 ..  6)  :=  ".DUMMY”; 
ARRAY.SUFFK  :  STRING(1 ..  6)  :=  ".ARRAY"; 

THE_FILE  :  FILE.TYPE; 

SBC.IS.GENERIC  :  BOOLEAN  :=  FALSE: 

--  used  to  align  parameters  in  procedure  declarations 

STDJD31AX.LENGTH  :  constant  INTEGER- 25; 


"  print  out  blank  spaces 

procedure  SPACES(COUNT :  in  INTEGER)  is 
begin 

if  COUNT  >  0  then 
for  INDEX  in  1 ..  COUNT  loop 
PUT(THE.FILE.  ”  "); 
end  loop; 
end  if; 

end  SPACES; 


”  determines  whether  the  specified  ID  is  already  represented  in 
-  the  list.  If  it  is  not,  then  it  is  added  to  the  list. 
procedure  ADD.WTTH^IEMBERfNAME :  in  PSDLJD.PKG.PSDLJD; 

HEAD  :  in  out  DUP.PTR)  is 

PTR  :  DUP.PTR  :=  HEAD; 

INSERT  :  DUP.PTR; 


184 


NOT_A_MEMBER :  BOOLEAN  :=  TRUE; 
begin 

if  (HEAD  =  nuU)  then 

-  initialize 

HEAD  new  NODE; 

HEADJD  :=NAME; 

else 

"  see  if  ID  is  already  in  the  list 

while  ((PTR  /=  null)  and  (NOT_A_MEMBER))  loop 

if  (PTR  JD.S  =  NAME.S)  then 

-  it’s  a  duplicate 

NOT_A_MEMBER  :=  FALSE; 
end  if; 

INSERT  ;=  PTR; 

PTR  :=  PTR  J^EXT; 

end  loop; 

if  NOT_A_MEMBER  then 

--  add  to  list 

INSERTJ^EXT  ;=  new  NODE; 
INSERTNEXTID  :=  NAME; 

end  if; 

end  if; 

end  ADD_WITH_MEMBER; 


"  builds  a  list  of  all  input  and  output  parameter  identifiers 
-  which  is  used  to  ensure  no  duplicate  "with"  statements  are 
-made 

function BUIIJD_WrrH_UST(IN_PARAM  -.PARAMETERS; 

OUT.PARAM :  PARAMETERS)  return  DUP.PTR  is 

IN_PTO  :  PARAMETERS  ;=IN_PARAM; 

OUT.PTR  ;  PARAMETERS  ;=  OUT.PARAM; 

HEAD.PTR :  DUP.PTR  :=nuU; 

begin 

while  (IN_PTR  /=  null)  loop 


if  IN_PTR.H  AS_UDT  then 

ADD_WITH31EMBER(IN_PTR.UDT.  HEAD.PTR); 

elsif  (IN_PTR.THE_TYPE.S  =  ARRAY.TYPE)  then 

-  not  a  UDT  but  maybe  an  array  with  components  defined 

-  by  UDTs 

if  IN_PTR.ARRAY_ELEMEm'_PTnR.HAS_UDT  then 
ADD_WITH_MEMBER(IN_PTR.ARRAY_ELEMENT_PTR.UDT.  HEAD_PTR); 
end  if; 


if  IN_PTR.ARRAY_INDEXLPTR.HAS_UDT  then 

ADD_W1TH_MEMBER(IN_PTR.ARRAY_INDEX_PTR.UDT,  HEAD_PTR); 

end  if; 
end  if; 

IN_PTR  :=  IN_PTR.NEXT; 
end  loop; 


while  (OUT_PTk  /=  null)  loop 

if  OUT_FrR.HAS_UDT  then 

ADD_W1TH_MEMBER(0UT_PTR.UDT.  HEAD.PTR); 

elsif  (OUT_PTR.THE_TYPE.S  =  ARRAY.TYPE)  then 
“  not  a  UDT  but  maybe  an  array  with  components  defined 
-  by  UDTs 

if  OUT_PTR.ARRAY_ELEMENT_PTR.H  AS.UDT  then 
ADD_\yTra_MEMBER(OUT_PTR.ARRAY_ELEMENT_PTR.UDT,  HEAD.PTR); 
end  if; 

if  OUT.PIR.  ARRAY JNDEX_PTR.HAS_UDT  then 

ADD_Wrra_MEMBER(OUT_PTR.ARRAY_INDEX_PTR.UDT,  HEAD.PTR); 

end  if; 
end  if; 


OUT.PTR  :=  OUT.PTRJ^EXT; 
end  loop; 
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return  HEAD_PTR; 
end  BUILD_WrrH_UST; 


-  write  any  "with"  statements  required  due  to  user  defined 

-  types  (UDTs)  and  software  base  component  inclusion 

procedure  WRITE  WITH  STATEMENTS(SBC_OreRATORJ4AME :  in  SHUNG; 

PARAM_LIST  :  in  DUP_PTR)  is 


PTR :  DUP.PTR  :=  PARAM.UST; 
begin 

Pirr_lJNE(THE_FILE.  "with "  &  SBC_OPERATOR_NAME  &  SBC_PKG_SUFFIX  & 
PUT_UNE(THE_FILE,  "use  "  &  SBC_OPERATOR_NAME  &  SBC_PKG_SUFFIX  & 

while  PTR  /=  null  loop 

PUT_LINE(THE_FILE.  "with "  &  PTRJD.S  &  PKG.SUFFIX  & 

PTR  :=  PTR  JIECT; 


end  loop; 

NEW_LINE(THE_FILE.  2); 
end  WRrrE_WITH_STATEMENTS; 


-  write  package  declaration 

IHocedure  WRITE_PACKAGE_DECLARA'nON(QC_OPERATOR_NAME :  in  STRING)  is 
begin 

PUT_LINE(THE_FILE,  "package  "  &  QC_OPERATOR_NAME  &  PKG_SUFFIX  &  "  is"); 
NEW_LINE(THE_FILE); 

end  WRITE_PACKAGE_DECLARATION; 


"  write  package  body  declaration 

procedure  WRTTE.PACKAGE JODY.DECLARATIONIQC.OPERATORJ^AME :  in  STRING)  is 
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begin 


PUT_LINE(THE_FILE. " . "); 

PIJT_LINE(THE_FILE. PACKAGE  BODY 

PUT_LINE(THE_FILE, " - 

NEW_lJNE(THe_FILE.  3); 


PUT_LINE(THE_FILE,  "package  body "  &  QC.OPERATORJ^AME  &  PKG.SUFFIX  & "  ii“); 
NEW_LINE(THE_FILE); 

end  WRlTE_PACXAGE_BODY_DECLARAT[ON; 


-  write  the  package  end  statement  (for  spec  or  body) 

piTX*dure  WRniE_END_OF_PACKAGE(QC_OPmiATOR_NAME :  in  STRING)  is 

begin 

PUT_LINE(THE_FILE.  "end "  &  QC.OPERATORJiAME  &  PKG.SUFFK  & 
NEW_LINE(THE_FILE.  3); 

end  WRITE_END_OF_PACKAGE; 


“  writes  the  new  package  that  is  the  result  of  the  generic 
-  instantiation 

procedure  WRnE_GENERIC_INSTANTIATION(QC_OPERATOR_NAME  :  in  STRING; 

SBC_OPERATOR_NAME :  in  STRING; 
GEN_PARAM_UST  :  in  PARAMETERS)  is 


PTR :  PARAMETERS  ;=  GEN_PARAM_UST; 


begin 

PUT_LINE(THE_FILE, "  package  "  &  GENERIC_PKG_PREFIX  &  QC_OPERATOR_NAME  & 
PKG.SUFFIX  &  "  is  new  "  &  SBC.OPERATOR  AME  &  SBC.PKG.SUFFK  &  "("); 
while  (PTR  /=  null)  loop 

PUT(THE_FILE. "  "); 

PUT(THE_FILE,  PTR.ID.S  & "  =>  "); 

if  (PTRAiAPHNG.HAS.UDT)  then  -  qc  parameter  defined  by  UDT 

PUT(THE_FILE,  PTRJUAPPING.UDT.S  &  PKG.SUFFK  &  &  PTRAIAPPING.UDT.S); 
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dlif  (PTRJ4APPING.TOE_TYPE.S  =  ARRAY.TYPE)  then 

PUT(THE_FILE.  PTOJUAPFING JD  S  &  ARRAY.SUFFDQ; 

else 

PUTCrHE_FILE.  PTRAlAraNGTHE_TYPE.S); 
end  if; 

PTR-PTRJ^EXT; 
if  (PTR  /=  null)  dien 

PUTJLINE(THE_FILE. 

else 

PUT_LINEaHE_FILE. 
end  if: 

end  loop; 

end  WRTTE.GENERIC.INSTANTIATION; 


--  define  an  array  type  declaration 

procedure  WRITE_ARRAY_TYPE_DECL(N AME :  in  STRING;  PTR :  in  PARAMETERS)  is 

begin  _ 

PUT(THE_FILE. "  type  "  &  NAME  &  ARRAY.SUFFDC  &  "  is  array  ("); 

--  write  the  array  index 

if  PTO.DEnNED_BY_GENERIC_TYPE  then 

-  r^er  to  the  qc  parameter  that  instantiated  the  generic 

if  PTRGENERIC.UNKAIAPPING.  ARRAY JNDEX_PTR.HAS_UDT  then 

PUTXTHE.FILE,  PTR.GENERIC.UNK.MAPPING.ARRAYJNDEX.PTR.UDT.S  &  PKG.SUFFK  & 
&  PTR.GENERIC_LINKMAPP!NG.ARRAYJNDEX_PTR.UDT.S  & ")  of "); 

else 

PUT(THE_FILE.  PTR.GENERIC_LINK.MAPPING.ARRAYJNDEX_PTR.THE_TYPE.S  & 

")of): 

end  if; 

else  -  array  index  not  d^ned  by  a  generic 

if  PTR.ARRAYJNDEX_PTR.H  AS_UDT  then 

PUT(THE_FILE.  PTR.ARRAY_INDEX_PTR.UDT.S  &  PKG.SUFFEX  &  & 

PTR.ARRAYJNDEX_PTR.UDT.S  &  ”)  of  "); 

else 

PUT(THE_FILE.  PTR.ARRAY_INDEX_PTR.THE_TYPE.S  &  ")  of  "); 

end  if; 
end  if; 
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--  write  the  array  element 

if  PTR.DEFINED_By_GENERIC_TYPE  then 

“  r^er  to  the  qc  parameter  that  instantiated  the  generic 

ifPTR.GENERIC  LINKi4APPING.AlUUY_EL£MENTJ>TRJlAS_UDTlhen 

PUT(THE_FILE.  m.GENERIC_U^«JAy«NG.AIUL^Y_ELEMENT_PTR.lJDT.S  &  PKG  SUFFIX 

& 

&  PTR.GENERIC_1JNKAIAPPING.ARRAY_ELEMENT_PTR.UDT.S  A 


PUT(THE_FILE.  PTO.GENERIC.UNKAIAPPING.  ARRAY JELEMENT_PTR.THE_TYPE5  A 


end  if; 


else  -  array  element  not  defined  by  a  generic 

if  PTR.ARRAY_ELEMENT_PTR.HAS_UDT  then 

PUT(THE_FILE.  PTR.ARRAY_ELEMENT_PTR.UDT.S  A  PKG.SUFFK  A  A 
PTR.ARRAY_ELEMENT_PTR.UDT.S  A 

else 

PUT(THE_FILE.  PTR.ARRAY_ELEMENT_PTR.THE_TYPE.S  A  V): 

end  if; 
end  if; 

NEW_UNE(THE_FILE); 
end  WRITE_ARRAY_TYPE_DECL; 


—  write  software  base  component  type  declaration 

—  it  is  only  needed  for  dummy  output  parameters 

procedure  WRrrE_SBC_TYPE_DECLARATION(PTR_VAR  :  in  PARAMETERS)  is 

PTR :  PARAMETERS  :=  PTR.VAR; 
begin 

while  (PTR  /=  null)  loop 

if  ((PTRAIAPPING  =  nuU)  and  (not  PTR.DEFINED_B  Y_GENERIC_TYPE))  then 

"  unmatched,  therefore  must  be  a  dummy  output  parameter 

—  if  it  is  darted  by  a  generic,  then  we  don’t  need  to 

—  declare  it  because  we  will  refer  to  the  instantiation 

—  parameter  in  the  query  component 
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-  see  if  it’s  an  array 

if  (PTR.THE_TYPE.S  =  ARRAY.TYPE)  then 
PUT(THE_FILE. "  "); 

WRrrE_ARRAY_TYre_DECL(PTRJD.S,  PTR); 
end  if; 

end  if; 

PTR  :=  PTR  J4EXT; 
end  loop; 

end  WRTTE.SBC.TYPE.DECLARATION; 


"  write  query  component  type  declaration 

procedure  WRITE_QC_TYPE_DECLARATION(PTR_VAR :  in  PARAMETERS)  is 


PTR ;  PARAMETERS  .=  PTR.VAR; 
begin 

while  (PTR  /=  null)  toop 

--  see  if  it’s  an  array 

-  however,  if  it  is  an  array  and  defined  by  a  UDT  then 
"  the  array  type  is  already  defined  and  we  don’t  need 
"  a  type  declaration  for  it 

if  ((PTR.THE_TYPE.S  =  ARRAY.TYPE)  and  (not  PTR.HAS.UDT))  then 
WRITE_ARRAY_TYPE_DECL(PTRJD.S.  PTR); 
end  if; 

PTR  :=  PTR.NEXT; 
end  loop; 

end  WRITE_(3C_TYPE_DECLARATION; 


”  Call  the  software  base  component  Operator  procedure. 

"  The  order  of  the  parameters  must  exactly  match  the  software 
-  base  component  PSDL  specification.  Dummy  parameters  have  been 
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--  predeclared  (outputs  only  are  possible)  using  the  formal  name 
--  used  by  the  software  base  component. 

procedure  WRITE_CALL_SBC_PROCEDURE(QC_OPERATOR_NAME  :  in  STRING; 

SBC.OreRATORJI AME  :  in  STRING; 
SBC_IN_PARAM_UST  :  in  PARAMETERS; 
SBC_OUT_PARAM_LIST :  in  PARAMETERS)  is 


PTR ;  PARAMETERS; 


begin 

PUT(THE_FILE, "  ”); 

if  SBC  IS.GENERIC  then 

PUT_LINE(THE_FILE.  GENERIC_PKG_PREFIX  &  QC_OPERATOR_NAME  &.  PKG.SUFFEX  & 
&  SBC_OPERATOR_NAME  &  •( "); 

else 

PUT_LINE(THE_FILE,  SBC_OPERATOR_NAME  &  SBC_PKG_SUFF1X  & & 
SBC.OPERATOR  J4AME  & 
end  if; 

-  input  parameters 
PTR  :=  SBC_IN_PARAM_UST; 
while  (PTR  /=  null)  loop 

PUT(THE_FILE, "  "); 

PUT(THE_FILE.  PTRMAPPING.ID.S): 


PTR  :=  PTRJflEXT; 
if  (PTR  /=  null)  then 

PUT_UNE(THE,FILE.  V): 

else 

if  (SBC_OUT_PARAM_UST  =  nuU)  then 
PUT_LINE(THE_FILE,  ");"): 
else 

PUT_LINE(THE_nLE, ","); 
end  if; 
end  if; 

end  loop; 


-  output  parameters 
PTR  ;=  SBC_OUT_PARAM_UST; 
while  (PTR  /=  null)  loop 

PUT(THE_FILE. "  "); 

if  (PTRMAPPING  =  null)  then 

-  dummy  output  parameter 

PUT(THE_FILE,  PTRJD.S  &  DUMMY.SUFFIX); 

else 

PUT(THE_FILE,  PTR  JdAPPINGJD.S); 
end  if; 

PTR  :=  PTRJ'IEXT; 
if  (PTR  /=  null)  then 
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PUTJJNE(THE_FIIJE. 

else 

PUT_LlNEaHE_FILE, 
end  if; 

endloc^; 

NEW_LINE(THE_FILE); 
end  WRrrE_CALL_SBC_PROCEDURE; 


“  d^ne  procedure  specification 

"  The  order  of  the  parameters  only  needs  to  match  up  with  the 

-  query  PSDL  specification  since  it's  the  implementation  portion 

-  of  this  procedure  that  will  actually  invoke  the  software  base 

-  component  Operator  procedure. 

procedure  WRITE_PROCEDURE_SPEC(QC_OPERATOR_NAME  :  in  STRING; 

QC_IN_PARAM_UST  :  in  PARAMETERS; 
QC_0UT_PARAM_UST  :  in  PARAMETERS)  is 

PTR :  PARAMETERS; 
begin 

NEW_LINE(THE_FILE); 

PUT_LINECTHE_FILE, "  procedure "  &  QC.OPERATORJN AME  &  "("); 

“  input  parameters 
PTR  :=  QC JN_PARAM_LIST; 
while  (PTR  /=  null)  loop 

PUT(THE_FILE, "  "); 

PUT(THE_FILE,  PTRJD.S); 

SPACES(STD_ID_MAX_LENGTH  -  PTR.ID.S  LENGTH); 

PUT(THE_FILE.  " ;  in  "); 

if  (PTR.HAS_UDT)  then  -  qc  parameter  defined  by  UDT 

PUT(THE_FILE.  PTR.UDT.S  &  PKG.SUFFIX  &  &  PTR.UDT.S); 

elsif  (PTR.THE_TYPE.S  =  ARRAY.TYPE)  then 

-  use  defined  array  type  declaration 

PUT(THE_FILE,  PTR.ID.S  &  ARRAY.SUFFDQ; 


else 


PUT(THE_FILE,  PTR.THE.TYPE.S); 
end  if; 

PTR  :=  PTR  JflEXT; 
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if  (FTR  /=  null)  then 

PUT_LINE(THE_FILE. 

else 

if  (QC_OUT_PARAM_LIST  =  null)  then 
PUT_LINE(TOEJ=ILE. "):"); 
else 

RJT_LINE(THE_FILE, ";"); 
end  if; 
end  if; 

end  loop; 


"  output  parameters 

FTR  :=  QC_OUT_PARAKLUST; 
while  (PTR  /=  null)  loop 

PUT(THE_FILE,  ”  "): 

PUT(THE_FILE,  PTRJD.S); 

SPACES(STD_ID31AX_LENGTH  -  PTRID.SLENGTH); 
PUT(THE_FILE, "  out "); 

if  (PTR.H AS_UDT)  then  -  qc  parameter  defined  by  UDT 

PUT(THE_FILE,  PTR.UDT.S  &  PKG.SUFFIX  &  &  PTR.UDT.S); 

elsif  (PTR.THE_TYPE.S  =  ARRAY.TYPE)  then 

-  use  defined  array  type  declaration 

PUTCTHE.FILE,  PTRJD.S  &  ARRAY.SUFFIX); 

else 

PUT(THE_FILE.  PTR.THE.TYPE.S); 
end  if; 

PTR  :=  PTR  J^EXT; 
if  (PTR /=  null)  then 

PUT_LINE(THE_FILE.  '; "); 

else 

PUT_LINE(THE_FILE.  ");"); 
end  if; 

end  loop; 

end  WRTTE.PROCEDURE.SPEC; 


~  define  procedure  body 

-  The  order  of  the  parameters  only  needs  to  match  up  with  the 
“  query  PSDL  specification  since  it's  within  the  body 
"  of  this  procedure  that  the  software  base  component  Operator 
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-  procedure  is  invoked. 

pnceduie  WRITE_PROCEDUREJBODY(QC_OPERATOR.NAME  :  in  STRING; 

SBC_OreRATORJ<AME  :  in  STRING; 
Qc3^_PARAMLLIST  ;  in  PARAMETERS; 
QC_OUT_PARAM_UST  :  in  PARAMETERS; 
SBCJN_PARAM,LIST  :  in  PARAMETERS; 
SBC_Oinr_PARAM_UST :  in  PARAMETERS)  is 

PTR  :  PARAMETERS; 

PTR2 :  DUP_PTR; 

begin 

NEW_1JNE(THE_FILE); 

PUT_LINE(THE_FILE. "  procedure  "  &  QC_OPERATOR_NAME  &  "("); 

--  input  parameters 
PTR  ;=  QC JN_PARAM_UST; 
while  (PTR  !=  null)  loop 

PUT(THE_FILE.  ”  "); 

PUT(THE_FILE.  PTRID.S); 

SPACES(STD_ID_MAX_LENGTH  -  PTRJD.S'LENGTH); 

PUT(THE_FILE,  "  :  in  "); 

if  (PTR.H  as.udt)  then  -  qc  parameter  defined  by  UDT 

PUT(THE_FILE.  PTR.UDT.S  &  PKG.SUFFIX  &  &  PTR.UDT.S); 

elsif  (PTR.THE_TyPE.S  =  ARRAY_TYPE)  then 

--  use  defined  array  type  declaration 

PUT(THE_FILE,  PTRJD.S  &  ARRAY.SUFFEX); 

else 

PUT(THE_FILE,  PTR.THE_TYPE.S); 
end  if; 

PTR  :=  PTR.NEXT; 
if  (PTR  /=  null)  then 

PUT_LINE(THE_FILE, ";"); 

else 

if  (QC_OUT_PARAM_UST  =  nuU)  then 
PUT_L[NE(THE_FILE, ")  is"); 
else 

PUT_LINE(THE_FILE, ";"); 
end  if; 
end  if; 

end  loop; 


”  output  parameters 
PTR  :=  (3C_OUT_PARAM_UST; 
while  (PTR  /=  null)  loop 
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PUT(THE_FILE. "  "); 

PUT(THE_FILE.  PTRJD.S); 

SPACES(STD_ID_MAX^LENGTH  -  PTRJD.S-LENGTH); 
PUT(THE_FE-E, "  :  out "); 

if  (PTR.HAS_UDT)  then  --  qc  parameter  defined  by  UDT 


PUT(THE_FILE.  PTR.UDT.S  &  PKG.SUFFDC  & &  PTR.UDT.S); 

elsif  (PTR.THE_TYPE.S  =  ARRAY.TYPE)  then 

"  use  defined  array  type  declaration 

PUT(THE_FILE.  PTRJD.S  &  ARRAY.SUFFDQ; 


else 


PUT(THE_FILE.  PTR.THE_TYPE.S); 
end  if; 

PTR  :=  PTRJ'IEXT; 
if  (PTR  /=  null)  then 

PUT_LINE(THE_FILE. 

else 

PUT_LINE(THE_FILE. ")  is"); 
end  if; 

end  loop; 

NEW_UNE(THE_FILE); 

--  see  if  dummy  output  parameters  will  be  needed 
if  (PARAMETER_COUNT((3C_OUT_PARAM_UST)  < 
PARAMETER_CX)UNT(SBC_OUT_PARAM_UST))  then 

-  we  must  include  dummy  output  parameters 

-  create  them  and  define  them  in  procedure  as  variables 

PUT_LINE(THE_FILE, "  -  dummy  output  parameters"); 

"  predefine  any  undefined  array  type  declarations 

WRITE_SBC_TYPE_DECLARATION(SBC_OUT,PARAM_UST); 

-  get  dummy  (unmatched)  parameters 
PTR  :=  SBC_OUT_PARAM_UST; 
while  (PTR  /=  null)  loop 

if  (PTRMAPPING  =  null)  then 

--  unmatched,  therefore  must  be  a  dummy  output  parameter 
"  Note:  for  this  implementation,  no  software  base  component 
parameter  can  be  defined  as  a  UDT  unless  it  was 
a  generic  instantiated  via  a  query  UDT. 

PUT(THE_FILE, "  "  &  PTR.ID.S  &  DUMMY_SUFFD(  &  " : "); 
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if  PrR.DEFINED_BY_GENERIC_TYre  tfien 

--  get  instantiated  generic  type 

if  (PTR.GENERIC_IJhnC  J4APFWG.THE_TVPE.S  =  ARRAY.TYPE)  then 

"  see  if  the  array  is  defined  by  a  UDT 

if  (Fm.GENERIC_LINKli«APPING.HAS_UDT)  then 

PUT(THE_FILE.  PTR.GENERIC.UNKAIAPHNG.UDT.S  &  PKG.SUFFK  &  & 

PTR.GENERIC_IJNKA1APPING.UDT.S); 


else 

-  use  defined  array  type  declaration 

PUT(THE_FILE.  PTO.GENERIC_LINK.MAPPINGJD.S  &  ARRAY.SUFFDC); 

end  if; 


else  ”  not  an  array  type 

-  see  if  the  parameter  is  defined  by  a  UDT 

if  (PTO.GENEWC_UNKA1APPING.H  AS_UDT)  then 

PUT(THE_FILE.  PTR.GENERIC.LINKAIAPPING.UDT.S  St  PKG.SUFFK  &  & 

PTR.GENER1C_1INKA1APPING.UDT.S): 


else 

PUT(THE_FILE  PTR.GENERIC_LINK.MAPPING.THE_TYPE.S): 


end  if; 
end  if; 


else  ”  not  defined  by  a  generic 

"  see  if  its  an  array 

if  (PTR.THE_TYPE.S  =  ARRAY.TYPE)  then 

-  use  defined  array  type  declaration 

PUT(THE_FILE.  PTR  JD.S  &  ARRAY.SUFFK); 

else  -  not  an  array  type 

PUT(THE.FILE,  PTR.THE.TYPE.S); 

end  if; 
end  if; 

PUT_LINE(THE_FILE, 
end  if; 

PTR  :=  PTRJIEXT; 

end  loop; 
end  if; 
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NEW_LINE(THE_FILE); 

-  procedure  body  begin  statement 

NEW_LINE(THE_F1LE); 

PUT_LINE(IHE_FILE, "  begin"); 

NEW_lJNEaHE_FILE); 

”  call  the  software  base  component  Operator  procedure 

write_call_sbc_procedure<qc_operatoiu^ame.  sbc^c»>eratoilname. 

SBC_IN_PARAM_UST.  SBC_OUT_PARAM_LIST): 


-  write  the  end  of  the  procedure  body 
PUT_LINE(THE_FILE. "  end  "  &  QC_OraRATOR_N  AME  & 
NEW_1JNE(THE_FILE); 

end  WRITE_PROCEDURE_BODY; 


--  creates  the  "wrapper"  package  from  the  valid  final  mapping 
“  between  query  and  software  base  components.  This  shell  becomes 
-  the  Ada  package  the  prototype  designer  works  with. 
inocedure  BUILD_OPERATOR_WRAPPER(QC_IN_PARAM_UST  :  in  PARAMEIERS; 

QC.OuflPARAM.LIST  :  in  PARAMETERS; 

SBC_IN_PARAM_LIST  :  in  PARAMEIERS; 

SBC_OUT_PARAM_LIST :  in  PARAMEIERS; 

GEN_PARAM_UST  ;  in  PARAMETERS; 

QC_OPERATOR_NAME  :  in  STRING; 

SBC_OPERATOR_NAME  :  in  STRING)  is 


PTR :  DUP_PTR; 
begin 


—  open  the  file  in  which  the  shell  will  be  written  to 

CREATE(THE_FILE,  MODE  =>  OUT_FILE.  NAME  =>  QC_OraRATOR_NAME  &  PKG.SUFFEX  & 
FILE_SUFFIX); 


"  write  any  "with"  statements  required  due  to  user  defined 

—  types  (UDTs)  and  software  base  component  inclusion 

PTR  ;=  BUILD_WrrH_LIST(QC_IN_PARAM JJST,  QCjOUT_PARAM JJST); 
WRnE_WITH_STATEMEN^SBC_OPERATOR_NAME,  PTR); 

-  write  package  declaration 

WRnE_PAC3CAGE_DECLARATION(QC_OPERATOR_NAME); 

“  predefine  all  array  type  declarations 

WRnE_QC_TYPE_DECLARA'nON(QCJN_PARAM_UST); 

WRriE_QC_TYPE_DECLARATION(QC_OUT_PARAMJLIST); 
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NEW_UNECnm_FILE,  2); 


if  (GEN_PARAM_UST  /=  nuU)  then  -  sbc  hos  generic  parameters 
SBCJS.GENERIC  :=  TRUE; 

WRrrE_GENERICJNSTANTlATION(QC_OPERATORJ4AME.  SBC.OPERATCMLNAME, 
GEN_PARAM_USD: 
end  if; 


“  define  procedure  specification 

WR1TE_PROCEDURE_SPBC(QC_OPERATOR AME.  QC JNJ>ARAMJJST.  QC_OUTJ»ARAM_liST): 
"  write  the  package  end  statement 

WRrrE_END_OF_PACKAGE(QC_OraRATORJ<AME): 

-  create  a  package  body  with  procedure  implementation 

WRrrE_PACKAGE_BODY_DBCLARATION(QC_OPERATOR_NAME); 

WRITE_PROCEDURE_BODY(QC_OreRATOR^NAME.  SBCjOPERATOR J^AME.  QC JN.PARAM JJST, 
QC  OljT_PARAM_uiT,  SBC_IN_PARAM_LIST.SBC_OUT_PARAM_liST); 


“  write  the  package  body  end  statement 

WRITE_END_OF_PACKAGE(QC_OPERATOR_NAME): 


CIjOSE(THE_FILE); 
end  BUILD.OPERATOR.WRAPPER; 
end  BUILD_OPERATOR_WRAPPER_PKG; 


--  Filename  /  Create_Operator_Paraineter_Files.a 
"  Date  / 10  Aug  93 

-  Author  /  Scott  Dolgoff 

-  System  /  Sun  SPARCstation 

-Compiler  IVerdixAda 

-  Description  /  This  program  drives  the  writing  of  the  input  and  output 

/  parameters  of  software  component’s  Prototype  System 
/  Description  Language  (PSDL)  specifications  into 
I  two  separate  files.  These  inputfoutput  parameter 
/  files  are  later  used  by  the  graphical  user  interface 
/  written  with  TAB  to  help  transform  components  selected 
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/  through  matching  to  be  brought  into  the  prototype 
/  working  directory.  If  the  PSDL  specification  is  of 
/  a  software  base  component,  then  a  check  is  made  to 
!  see  if  it  has  generic  parameters.  If  it  does 
/  then  the  generic  parameters  are  written  to  a  third 
Ifile. 


with  PARAMEnreiLUST.PKG.  PSDL_ID JTCG; 
use  PARAMETER_LIST_nCG.  PSDL_ID_PKG; 

IMckage  aiEAT5_OreRATOR_PARAMETER^FILES_PKG  is 


type  COMPONENT.STATUS  is  (QUERY.COMPONENT,  SOFTWARE_BASE_COMPONENT); 

procedure  CREATE_OPERATOR^PARAMETER_FILES(THE_COMPONENT  :  in  COMPONENT.STATUS; 

1N_PARAM_LIST  ;  in  out  PARAMETERS; 
IN_PARAM_COUNT  :  out  INTEGER; 

OUT_PARAM_LIST  :  in  out  PARAMETERS; 
OUT_PARAM_COUNT :  out  INTEGER; 
GEN_PARAM_LIST  :  in  out  PARAMETERS; 
GEN_PARAM.COUNT :  out  INTEGER; 

HAS.GENERICS  :  out  BOOLEAN; 

OPJNAME  :  out  PSDLJD); 

end  CREATE_OPERATOR_PARAMETER_FILES_HCG; 


with  TEXTJO,  PSDL_CONCRETE_TYPE_PKG,  LOAD.PSDLJNTO JU)A_STRUCTURE_PKG. 
nERATE2_THROUGH_OPERATOR_PARAMETERS  PKG,  PSDL  PROGRAM  PKG, 

PSDL_CX)MPONENT_PKG; 

use  TEXTJO,  PSDL_CONCRETE_TYPE_PKG.  LOAD_PSDL_INTO_ADA_STRUCTURE_MCG. 
nERATE2_THROUGH_OPERATOR_PARAMETERS  PKG,  PSDL  PROGRAM.PKG, 

PSDL_COMPONENT_PKG; 


package  body  CREATE_OPERATOR_PARAMETER_FILES_PKG  is 
OPERATOR_CX>MPONENT :  PSDL_COMPONENT_PKG.OPERATOR; 


procedure  CREATE_OPERATOR_PARAMETER_FILES(THE_COMPONENT  :  in  COMPONENT  STAT^JS; 

IN.PARAM.UST  :  in  out  PARAMETERS; 
IN_PARAMJX>UNt  :  out  INTEGER; 

OUT_PARAM_UST  ;  in  out  PARAMETERS; 
OUT_PARAM_COUNT ;  out  INTEGHl; 


200 


IN_STANDARD_NAME 
‘'input_panni6tBn.txt"; 
OUT_STANDARD_NAME 
'‘output_paraineten.txt"; 
GEN_STANDARD_NAME 
'‘geiMric_paraineters.txt"; 
FILE_SUFFIX 
PTR,  GEN_PTR 
SET_LINK 


GENJ>ARAM_UST  :  ia  outPARAKSISlS: 
GEN_PARAM_COUNT :  out  INTEGER; 
HAS.GENERICS  :outBO(H.EAN: 

OP JiAME  ;  out  PSW.JD_PKG  J>SDLJD)  is 

:STRING(1  ..20):= 

;  STRINGd  ..  21)  := 

;STRING(1  ..22);= 


:STRING(1  ..4); 

:  PARAMETERS; 
;  BOOLEAN; 


GENERIC3IODEL.  OUTPUT_PARAMETERS.  INPinUPARAMETBRS : 

PSDU.CONCRBrE_TYre_PKG.TYPE_DECLARATION; 

reoTOTYPE_srec 

PSDL_PROGRAM_HCG.PSDL_WlOGRAM; 


-  get  the  Operator  component 

RETRIEVE_OPERATOR.COMPONENT(OPERATOR_COMPONENT): 

"  get  Operator  name 

OPJ^AME  ;=  PSDL_COMPONEOTJ>KGJ^AME(OPERATOR.COMPONENT); 

-  get  the  Prototype  Specification 

RETRIEVE_PROTOTYPE_SPEC(PROTOTYPE_SPEC); 

--  Pass  the  components  to  the  packages  that  will  need 
••  them 

SEND_COMPONENTS(OPERATOR_COMPONENT.PROTOTYPE_SPEC); 


--  Pass  the  file  si0ix  so  the  correct  files  can  be 
—  written  to. 

if  THE.COMPONENT  =  QUERY.COMPONENT  then 
F1LE_SUFFIX  ;=  "qyc_"; 
else 

FILE_SIJFFIX  ;=  "sbc_"; 
end  if; 


"  open  the  input  parameters  file 

OPEN_FILE(FILE_SUFFIX  &  IN_STANDARD_NAME); 

"  get  the  Operator's  input  parameters 

INPUT_PARAMETERS  :=PSDL_COMPONENT_PKGJNPUTS(OPERATOK_COMPONENT): 

”  iterate  through  the  input  parameters  to  store  the 
--  input  parameters  in  a  text  file 
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ITCIUTC_THROUGHJNPUTJ»ARAMEraiS(INPirrj>ARAMEre^ 

CLOS^_FBLE; 


••  build  list  of  all  input  parameters  and  how  many  there  are 

BUILD_PARAMETEIUJST(IN_PARAM JJST.  IN_PARAM_COUNT); 


"  open  the  output  parameters  file 

OPEN_FILE(FILE_SUFFIX  &.  OUT_STANDARD_NAME); 

"  get  the  Operator's  output  parameters 

OUTPUT.PARAMETERS  :=  PSDL_COMPONEhrr_HCG.OmTVrS(OPEIUTOILCOMP(»^ENT); 

-  iterate  through  the  output  parameters  to  store  the 

-  output  parameters  in  a  text  file 

rrERATE_THROUGH_Oimarr_PARAMET1ERS(Oim>UT_PARAMETERS); 


CLOSE_FIUE; 


~  build  list  of  all  output  parameters  and  how  many  there  are 

BUIli)_PAIUMETER_LIST(OUT_PARAM_IiST.  OUT_PARAM_CX)UNT): 


--  Check  the  component  status.  If  it  is  a  software  base  component 

-  then  it  may  have  generic  parameters. 

HAS.GENERICS  :*  FALSE: 

GEN_PARAM_UST  :=  nuU; 

GEN_PARAM_COUNT  :=  0; 

if  THE.COMPONENT  =  SOFTWARE_BASE_COMPONENT  then 

-  Get  the  generic  parameters. 

GENERIC_MODEL  := 

PSDL_COMPONENT_PKG.GENERIC_PARAMETERS(OPERATOR_COMPONEND; 

if  not  PSDL_CONCRETE_TYPE_PKG.EQUAL(GENERIC_MODEL, 
PSDL_CONCRETE_TYPE_PKG.EMPTY_TYPE_DECLARA’nON)  then 

—  it  has  generic  parameters 

HAS.GENERICS  :=  TRUE; 


"  open  the  input  parameters  file 

OPEN_FILE(FILE_SUFFIX  &  GEN_STANDARD_NAME); 

-  iterate  through  the  generic  parameters  to  store  the 
"  generic  parameters  in  a  text  file 

rrERATE_TOROUGH_GENERlC_PARAMETERS(GENERIG J»fODEL); 


CLOSE.FH-E; 
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-  build  list  of  all  generic  parameters  and  how  many  there  are 

BUaJ)JPARAMETER_UST(GEN_PARAMJLIST,  GEN.PARAMJXHJNT); 

--  establish  the  links  between  the  generic  parameters  and  the 
“  SBC  input  parameters  defined  in  terms  of  those 
"  generic  parameters 
m:=IN_PARAM_LIST: 
while  (PTR  /=  null)  loop 

if  PTR.DEFINED_B  Y_GENERIC_TYPE  then 

--  find  the  generic  and  set  the  link 

GEN_PTR  :=  GEN_PARAM_LIST; 

SET_LINK  :=  FALSE: 

while  ((GEN_PTR  /=  null)  and  (not  SET_LINK))  lo<^ 

if  (GEN.PTRJD.S  =  PTR.GENERIC_ID.S)  then 
SET_LINK;=TRUE; 

-  link  set 

PTR.GENERIC_LINK  :=  GEN.PTR; 
end  if; 


GEN.PTR  :=  GEN.PTO  J4EXT; 


end  loop; 
end  if; 

PTR  ;*  PTR-NEXT; 
end  loop; 


-  establish  the  links  between  the  generic  parameters  and  the 

-  SBC  output  parameters  defined  in  terms  of  those 

-  generic  parameters 

PTR  :=  OUT_PARAM_UST; 
while  (PTR  /=  null)  loop 

if  PTR.DEFINED_B  Y_GENERIC_TYPE  then 

-  find  the  generic  and  set  the  link 

GEN_PTR  :=  GEN_PARAM_UST; 

SETJJNK  :=  FALSE; 

while  ((GEN_PTR  /=  null)  and  (not  SET_LINK))  lo«^ 

if  (GEN_PTRJD.S  =  PTR.GENERIC JD.S)  then 
SET_UNK:=TRUE; 

PTR.GENERIC_LINK  ;=  GEN.PTR; 
end  if: 


GEN.PTR  :=  GEN_PTR  J^EXT; 
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atd  loop; 
end  if; 

PTR;*PTR.NEXT; 


end  loop; 

Old  if; 
end  if; 


excqjtion 
when  others  => 

PUT_UNE("***  THIS  PROGRAM  CANNOT  CONTINL'E  •••"): 
raise ; 

end  CREATE_OPERATOR_PARAMETER_FILES; 
end  CREATE_OreRATOR_PARAMETER_FILES_I«G: 


"  Filename  /  Deterinine_Ada__Type__Pkg^ 

”  Date  /  9  August  93 

-  Author  /  Scott  Dolgoff 

"  System  /  Sun  SPARCstation 

-  Compiler  /  Verdix  Ada 

-  Description  /  This  program  determines  the  Ada  type  of  a  parameter 

/  typ^  ^os  not  defined  as  an  Ada  type,  but  rather 
/  in  terms  of  an  ADT,  generic,  or  user  defined  type. 

with  PSDLJ>ROGRAM_PKG,  PSDL_COMPONENT_PKG.  PSDL_CONCREnE_TYPE_PKG,  PSDL_ID_PKG; 
use  PSDL_PROGRAM_PKG,  PSDL_COMPONENT_HCG,  PSDL_CONCRETE_TYPE_PKG,  PSDL_ID_PKG; 
package  DETERMINE_THE_ADA_TyPE_PKG  is 


type  COMPONENT.TYPE  is  (OPERATOR.COMP.  TYPE.COMP); 

"  Input  parameter  is  a  user  defined  type  so  we  must  look 
•-  up  its  Ada  type  representation  by  extracting  the 
"  user  defined  type  from  the  prototype  PSDL  specification. 

procedure  GET_USER_DEFINED_TYPE(THE_TYPE_NAME  in 

PSDL_CONCRETC_TYPE_PKG.TYPE_NAME; 
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UDT_TYFBJIAkffi  in  out 

PaDL^CONCREre_TYPE_HCG.TYPE_NAME); 


-  Looks  through  the  generic  parameters  of  a  Type  or  Operator  to 
--  see  if  an  unrecognized  type  is  d^ned  as  an  Ada  type  there. 
procedure  CHECK_GENERICS(THE_CX)MPONENT  ;  in  COMPONENT.TYPE; 

UNKNOWN.TYPEJiAME  in  out 

PSDL_CX)NaiEre_TYPE_PKG.TYrejJAME; 

GENERIC_TYPE_NAME :  in  out  PSDL_CCWCRErE_TYre_HCG.TYPEJ4AME; 
FOUND.TYPE  :  out  BOOLEAN); 


"  Called  if  a  type  is  an  ARRAY  which  means  that  in  order  to 

-  correctly  build  the  signature,  not  only  must  the  ARRAY 

-  be  encoded  into  the  signature,  but  also  the  ARRAY  components. 

procedure  GET_ARIUY_CX)MPONENTS(TYre_NAME  in 

PSDL_CX)NCRETE_TYPE_PKG.TYPEJ<AME; 

ELEMENT.TYre  :  out  PSDL_CONCRETE_TYre_nCG.TYPE_NAME; 
ELEMENT_IS_UDT :  out  BOOLEAN: 

ELEMENT.UDT  :  out  PSDLJD_PKG.PSDL_ID; 

INDEX_TYPE  ;  out  PSDL_CONCRETEu.TYPE_HCG.TYPE_NAME; 
INDEXJS.UDT  :  out  BOOLEAN: 

INDEX.UDT  :  out  PSDLJD_PKG.PSDL_ID; 

ARRAY  JN.UIXr  ;  in  BOOLEAN): 


--  make  the  operator  or  type  component  and  the  prototype  component 
-  visible  to  this  package 

procedure  PASS_COMPONENTS(MAIN_COMPONENT  in 

PSDL_COMPONENT_PKG.PSDL_COMPONENT; 

PROTO.SPEC  :  in  PSDL_PROGRAM_PKG.PSDL_PROGRAM); 


-  exceptions 

--  the  user  defined  type  of  an  Operator  input  or  output 

-  parameter  was  not  defined  in  the  Prototype  PSDL  specification 

UNDEFINED_USER_DEFINED_TYPE ;  excqjtion; 

”  the  type  used  to  define  a  user  defined  type  is  not  a 

-  valid  Ada  type 

INVALID_ADA_TYPE  ;  exception: 

end  DETERMINE_THE_ADA_TYPE_PKG; 
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with  TEJCTJO,  ADA^RECXX3N1ZED_TYPES_PKG,  LOAD_PSDLJNTO_ADA_STRUCTURE_PKG, 
TYPE_NAME_PKG,  A_STRINGS; 


use  TEXTJO,  ADA^RECOGN1ZED_TYPES_PKG.LOAD_PSDLJNTO_ADA  STRUCTURE  PKG, 
A_STRINGS; 


package  body  DBrERMINE_THE_ADA_TYPE_PKG  is 

GV AME,  GV_UDT_NAME 
PSDL_CONCRETE_TYPE_PKGTTPE  NAME; 

PROTOTVre.SPEC 

PSDL_PROGRAM_nCG.PSDL_PROGRAM; 

MAIN_TYre_COMPONENT.  TYPE.COMPONENT.WITH  ARRAY,  TYPE  COMPONENT : 
PSDL.COMPONENT_HCG.DATA_TYPE; 

OPERATOR.COMPONENT 

PSDL_COMPONENT_PKG.OPERATOR; 

KIND_OF_COMPONENT 

PSDL_COMPONENT_PKG.COMPONENT_TYPE; 


-  make  the  operator  or  type  component  and  the  prototype  component 
"  visible  to  this  package 

procedure  PASS_COMPONENTS(MAIN  COMPONENT 

PSDL_COMPONENT_HCG.PSDL_COMPONENT; 

PROTO.SPEC  :  in  PSDL_PROGRAM_PKG.PSDL_PROGRAM)  is 


begin 

KIND.OF.COMPONENT  ;=  COMPONENT_CATEGORY(MAIN_COMPONENT); 
case  KIND_OF_COMPONENT  is 

when  PSDL_OPERATOR  => 

OPERATOR_COMPONENT  :=  MAIN.COMPONENT; 

when  PSDL_TYPE  => 

MAIN_TYPE_COMPONENT  :=  MAIN.COMPONENT; 
end  case; 

PROTOTYPE_SPEC  :=  PROTO_SPEC; 
end  PASS.COMPONENTS; 


-  Input  parameter  is  a  user  d^ned  type  so  we  must  look 

-  up  its  Ada  type  representation  by  extracting  the 

-  user  defined  type  from  the  prototype  PSDL  specification. 

procedure  GET_USER_DEFINED_TYPECrHE_TYPE_NAME 

PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 
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UDT_TYPE_NAME 

PSDL_CONCRETE_TYPE_PKG.TYPE_NAME)  is 
TyPE_MODEL :  PSDL_CONCRETE_TYPE_HCG.TYPE_DBCLARA'nON; 
begin 

-  retrieve  the  type  component  specification 
TYre.COMPONENT  ;=  PSDL_PROGRAM_PKG.FETCH(raOTOTYre_SPEC, 
THE_TYre_MAMEJ<AME); 
if  TYPE_COMPONENT  =  null  then 
GVJ^AME  :=  THE.TYPEJiAME; 
raise  UNDEFINED_USER_DEFINED_TYPE; 
end  if; 


-  get  the  corresponding  Ada  type  of  the  user  defined  type 

TYrejkfODEL  :=  PSDL_C0MP0NENT_PKGA10DEL(TYPE_C0MP0NENT); 


UDT_TYPE_NAME  := 

PSDL_CX)NCRETE_TYPE_PKGTVPE_DECLARATION_PKG.FETCH(TYPE_MODEL. 

THE_TYPE_NAMEJ1AME); 


-  Ensure  type  was  defined.  If  not,  then  nothing  was  fetched. 
if  TYPE_NAME_PKG."="  (UDT_TVPE_NAME,  TYPE_NAME_PKGHULL_TYPE)  then 
GV_NAME  :=  THE_TYPE_NAME; 
raise  UNDEFINED_USER_DEnNED_TYPE; 
end  if; 


--  type  of  the  UDT  must  be  a  valid  Ada  type 
if  not  RECOGNIZED. AD  A_TYPE(UDT_TYPE_NAME.NAME)  then 
GV.NAME  :=  THE_TYPE_NAME; 

GV_UDT_NAME  :=  UDT.TYPE.NAME; 
raise  INVALID. AD A.TYPE; 
end  if; 


exception 

when  UNDEFINED.USER.DEFINED.TYPE  => 

PUT.UNEC  ***  ERROR;  "  &  GV.NAMEJ4AME.S  &  "  IS  A  USER  DEFINED"); 
PUT.LINE('TYPE  THAT  IS  NOT  DEFINED  IN  THE  PROTOTYPE  PSDL"); 
PUT.UNEC'SreanC  ATION.  THIS  MEANS  IT  IS  EITHER  NOT  INCLUDED"); 
PUT.LINE("AS  A  SEPARATE  TYPE  SreCIHCATlON,  OR  IF  ITIS,  IT  IS"); 
PUT_LINE("NOT  DEFINED  AS  AN  ADA  TYPE  WTTHIN  TOE  TYPE  SPECfflCATION"); 
PUT.LINE('Tr  IS  ALSO  POSSIBLE  THAT  EITOER  'ARRAY.ELEMENT  OR"); 
PUT.UNEC  ’ARRAY.INDEX'  WAS  REQUIRED  BUT  NOT  USED  AS  IDENTIFIERS."); 
NEWJJNE; 
raise ; 


when  INVALID. AD  A.TYPE  => 

PUT.LINE("***  ERROR:  INVALID  ADA  TYPE  DISCOVERED  FOR  -"); 

PUT.IJNE("  "  &  GVJ^AMENAME.S  &  " :  "  &  GV.UDT.NAME.NAME.S); 
PUT.LINE(" A  Type  MUST  BE  DEFINED  AS  AN  ADA  TYPE.  IT  CAN  REFERENCE"); 
PUTJJNE("INFORMATION  IN  ITS  GENERIC  PARAMETERS.  BUT  CANNOT); 
PUT.LINE("REFERENCE  DEFINmON  INFORMATION  OUTSIDE  ITS  OWN"); 
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PUT_LINE("SPECinCATION.  A  Generic  PARAMETER  MUST  BE  FUU,Y  "); 
PUT.UNEC'DEFINED  AS  AN  ADA  TYPE.  IT  CANT  EVEN  REFERENCE  OTHER  ”); 
PUT_LINE(”DEFINrnONS  WITHIN  ITS  GENERICS."); 

NEW_LINE; 
raise ; 


when  others  => 

PUT  LINE(”***  UNKNOWN  ERROR:  OCCURED  IN  laracedure  ”); 
PUT_1JNE("  GET_USER)_DEFINED_TYPE.  "); 

NEW_LINE; 
raise ; 


end  GET_USER_DEFINED_TYPE; 


-  Looks  through  the  generic  parameters  of  a  Type  or  Operator  to 

-  see  if  an  unrecognized  type  is  d^ned  as  an  Ada  type  there. 

procedure  CHECK_GENERICS(THE  COMPONENT  :  in  COMPONENT.TYPE; 

UNKNOWN.TYPEJ^AME  in  out 

PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 

GENERIC_TYPE_NAME :  in  out  PSDL_CONCRETE_TYre_PKG.TYPE_NAME; 
FOUND.TYPE  :  out  BOOLEAN)  is 

COMPONENT  :  PSDL_COMPONENT_PKG.PSDL_COMPONENT; 

GENERIC_MODEL :  PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARATION; 

COMP_NAME  :  PSDL_ID_PKG.PSDL_ID; 

begin 


-  select  the  correct  component  type 

case  THE_COMPONENT  is 

when  OPERATOR_COMP  => 

COMPONENT  :=  OPERATOR.COMPONENT; 

when  TYPE_COMP  => 

COMPONENT  :=  TYPE_COMPONENT_WITH_ARRAY; 


end  case; 


"  Get  the  generic  parameters. 

GENERIC.MODEL  ;=  PSDL_COMPONENT_HCG.GENERIC_PARAMETERS(COMPONEND: 

if  not  PSDL_CONCRETE_TYPE_PKG.EQUAL(GENERIC  J40DEL. 
PSDL_CONCRETE_TYPE_PKG.EMPTY_TYPE_DECLARATION)*en 

—  get  the  corresponding  Ada  type  of  the  corresponding  unknown  type 

GENERIC_TYPE_NAME  ;= 

PSDL.CONCRETE.TYPE.PKG.TYPE.DECLARATION  PKG.FETCH(GENERIC_MODEL. 
UNKNOWN_TYPE_NAMEJ^AME); 
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-  Ensure  unknown  type  was  defined.  If  not.  then  nothing  was  fetched. 

if  TyPej^AME_HCG.'="  (GENERIC_TYPE_NAME.  TYPe_NAMEJ>KGJNULL_TYPE)  then 

-  will  have  to  check  something  other  then  generics 

POUND.TVre  :=  FALSE; 

else 

--  type  of  the  GENERIC  must  be  a  valid  Ada  type 

if  RECOGNIZED. ADA_TYPE(GENERIC_TYPEJ«IAMEJ4AME)  then 
FOUND.TYPE  :=  TRUE; 
else 

GVJ4AME  :=  UNKNOWN.TYPEJf  AME; 

GV_UDT_NAME  :=  GENERIC_TYPE_NAME; 
raise  INVAUD_ADA.TYPE; 
end  if; 
end  if; 

else 

-  will  have  to  check  something  other  then  generics 
FOUND.TYPE  :=  FALSE; 
end  if; 


exception 


when  INVALID_ADA.TYPE  => 

PUT_LINE(’  ***  ERROR:  INVALID  ADA  TYPE  DISCOVERED  FOR 
PUT_LINE("  "  &  GV_NAMEJ^AME.S  &  “ : "  &  GV_UDT_NAMENAME.S); 

PUT.UNEC'A  Type  MUST  BE  DEFINED  AS  AN  ADA  TYPE.  IT  CAN  RH’ERENCE”); 
PUT.UNECTNFORMATION  IN  ITS  GENERIC  PARAMETERS.  BUT  CANNOT  ); 
PUT_LINE('  REFERENCE  DEFINITION  INFORMATION  OUTSIDE  ITS  OWN“); 
PUT_LINE("SPECIFICA‘nON.  A  Generic  PARAMETER  MUST  BE  FULLY  "); 
PUT_LINE("DEFINED  AS  AN  ADA  TYPE  IT  CANT  EVEN  REFERENCE  OTHER  ”); 
PUT.UNEC'DEFlNrnONS  WITHIN  ITS  GENERICS.”); 

NEW.UNE; 
raise ; 


when  odiers  => 

PUT_LINE("***  UNKNOWN  ERROR:  OCCURED  IN  procedure  "); 
PUT_LINE("  CHECK  GENERICS.  "); 

NEW_LINE; 
raise ; 


end  CHECK_GENERICS; 


-  Called  if  a  type  is  an  ARRAY  which  means  that  in  order  to 

-  correctly  build  the  signature,  not  only  must  the  ARRAY 

-  be  encoded  into  the  signature,  but  also  the  ARRAY  components. 

procedure  GET_ARRAY_COMPONENTS(TYPE  NAME  in 

PSDL_CONCRETE_TYPE_PKG.TYPEJ^AME; 

ELEMENT.TYPE  :  out  PSDL_CONCRETE_TYPE_PKG.TYPE J<AME; 
ELEMENTJS.UDT :  out  BOOLEAN; 

ELEMENT.UDT  :  out  PSDLJD_PKG.PSDL_ID; 

INDEX.TYPE  :outPSDL_CONCRETE_TYPE_HCG.TYre.NAME; 
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INDEXJS.UDT  :  out  BOOLEAN; 
INDEX_UDT  :  out  PSDLJD.PKG.PSDLJD; 
ARRAY  JN.UDT  :  in  BOOLEAN)  is 


FOUND.TYPE 

BOOLEAN; 

--  User  Defined  Type  (UDT)  type  name 

UDT_TyPE_NAME.  GENERIC_TYre_NAME.  ARRAY_ELEMENT_TYre_NAME. 

ARRAY JNDEX_TYPE_NAME,  THE.TYPEJ^AME ;  PSDL_CONaiETE_TYPEJ1CG.TYPE_NAME; 


begin 

"  Set  to  the  last  type  component  retrieved  when  looking  for  a 
"  UDT.  Needed  if  the  UDT  was  an  Array  type.  This  will  allow 
--  the  generic  parameters  of  the  Type  Component  to  be  searched 
-  in  case  the  array  index  or  element  is  d^ned  there. 
TYPE_COMPONENT_WITH_ARRAY  :=  TYPE.COMPONENT; 


THE_TYPE_NAME  :=  TYPE_NAME; 

-  Because  "array"  is  a  composite  type,  must  get 
”  its  components  (element  &  index) 

--  Get  the  array  element  type.  ***NOTE:  this  program  expects 

-  the  PSDL  specification  to  use  the  identifier  " ARRAY JELEMENT" 

-  and  it  IS  case  sensitive. 

ARRAY_ELEMENT_TYPE_NAME  := 

PSDL_CX)NCRErE_TYPE_PKG.TYPE_DECLARATION  HCG.FETCHCIHE_TYPE_NAME  GEN  PAR. 
ARRAY_ELEMENT_TYPE); 

-  Ensure  type  was  defined.  If  not,  then  nothing  was  fetched 
--  arul  that  was  due  to  a  failure  to  use  the  correct  identifier 

-  "ARRAY  ELEMENT". 

if  TYPE_NAME_PKG."="  (ARRAY_ELEMENT_TYPE_NAME.TYPEJ<AME_PKG.NULL_TYPE)  then 
GV_NAME  :=  THE_TYPE_NAME; 
raise  UNDEFINED_USER_DEFINED_TYPE; 
end  if; 

if  RECOGNIZED_ADA_TYPE(ARRAY_ELEMENT_TYPEJ<AME.NAME)  then 
“  The  parameter  is  a  valid  Ada  type  so  go  ahead  and  make 

-  it  known  to  the  procedure  output  parameter 
ELEMENT.TYPE  :=  ARRAY_ELEMENT_TYPE_NAME; 

ELEMENTJS.UDT  :=  FALSE; 

else 

-  Maybe  the  parameter  is  defined  in  the  generics  of  either  the 

-  Operator  component  or  a  Type  component  (UDT)  if  that  is  where  the 

-  Array  identifier  was  defined. 
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if  ARRAY JN.UDTihen 

CHBCK_GENERICS(TYPE_COMP.  ARRAY_H-EMENT_TYPEJNAME,  GBNERK_TYPE_NAME. 
FOUND.TYre); 

else 

CHBCK^GENERICS(OPBRATOR_COMP.  ARRAY_ELaiBNT_TyPE_NAME, 

GENERIC.TYPRJiAME. 
lOUND.TYre); 

end  if; 

ifFOUND.TYPEthen 

--  The  type  is  either  not  composite  or  even  if  composite, 

-  will  not  be  further  specified  by  its  components  so 

-  go  ahead  and  store  it  in  element  jype. 

ELEMENT.TYPE  :=  GENERIC_TYPE_NAME; 

else  -  The  parameter  must  be  a  user  defined  type  so 
-  get  its  type. 

GET_USER_DEFINED_TYPE(ARRAY_ELEMENT_TYPE_NAME  UDT_TYPEJ4AME): 

-  The  type  is  either  not  composite  or  even  if  composite. 

-  will  not  be  further  specified  by  its  components  so 

-  go  ahead  and  store  it  in  element  jype. 

ELEMENT_TYPE  :=  UDT_TYPE_NAME; 

ELEMENTJS.UDT  :=  TRUE; 

ELEMENT.UDT  :=  ARRAY_ELEMENT_TYPEJ^AMEJIAME; 

end  if; 
end  if; 


-  Get  the  array  index  type.  ***NOTE:  this  program  expects 

--  the  PSDL  specification  to  use  the  identifier  "ARRAY  INDEX" 

-  and  it  IS  case  sensitive. 

ARRAY JNDEX_TYPE_NAME  := 

PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARATION_HCG.FETCHrniE_TYPE_NAME.GEN_PAR, 

ARRAY_INDEX_TYPE); 


-  Ensure  type  was  d^ned.  If  not.  then  nothing  was  fetched 

-  and  that  was  due  to  a  failure  to  use  the  correct  identifier 

-  "ARRAY JNDEX". 

if  TYPE_NAME_PKG.  ”="  (ARRAY_INDEX_TYPE_NAME.  TYPE_NAME_PKGJfULL_TYPE)  th«» 
GV.NAME  :=  THE_TYPE_NAME; 
raise  UNDEFINED_USER_DEFINED_TYPE; 
end  if; 


if  RECOGNIZED. ADA_TYPE(ARRAY_INDEX_TYPEJfAMEJIAME)  then 
“  The  parameter  is  a  valid  Ada  type  so  go  ahead  and  store 
-  the  array  index  into  index  type. 

INDEX.TYPE  :=  ARRAY_INDEX_TYPE_NAME; 
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INDEXJS.UDT  :=  FALSE; 
else 


--  Maybe  the  parameter  is  defined  in  the  generics  of  either  the 

-  Operator  component  or  a  Type  component  (UDT)  if  that  is  where  the 

-  Array  identifier  was  dfined. 

if  ARRAY  JN.UDT  then 

CHECK_GENERICS(TYPE_COMP.  ARRAYJNDEX_TyPELNAME,  GENERIC.TYPE Jf AME, 
FOUND.TYPE); 

else 

CHECieGENERICS(OraRATOR^COMP.  ARRAYJNraXL.TYPEJNAME 

GENERIC_TYPEJ4AME. 

FOUND.TYre); 

end  if; 

ifFOUND.TYPEthen 

"  The  type  is  either  not  composite  or  even  if  composite. 

"  will  not  be  further  specified  by  its  components  so 

"  go  ahead  and  store. 

INDEX.TYPE  :=  GENERIC.TYPE.NAME; 


else  -  The  parameter  must  be  a  user  dfined  type  so 
”  get  its  type. 

GET_USER_DEFINED_TYPE(ARRAYJNDEJCTYPE JIAME,  UDT_TYPE_NAME); 

”  The  type  is  either  not  composite  or  even  if  composite, 

••  will  not  be  further  specified  by  its  components  so 
-  go  ahead  and  store. 

INDEX_TYPE  :=  UDT_TYPE_NAME; 

INDEXJS.UDT  :=  TRUE; 

INDEX_UDT  :=  ARRAY_INDEX_TYPE_NAMEJ^AME; 

end  if; 
end  if; 


exception 


when  UNDEFINED_USER_DEFINED_TYPE  => 

PUT_LINE("***  ^OR:  "  &  GV.NAME J^AME.S  &  "  IS  A  USER  DEFINED’  ); 
PUT_LINE(  TYPE  THAT  IS  NOT  DEFINED  IN  THE  PROTOTYPE  PSDL"); 
PUT.UNEC'SPECIHCA’nON.  THIS  MEANS  IT  IS  EITHER  NOT  INCLUDED  ”); 
PUT_LINE(  "AS  A  SEPARATE  TYPE  SPECIHCATION.  OR  IF  ITIS.  IT  IS  ”); 
PUT_LINE("NOT  DEFINED  AS  AN  ADA  TYPE  WITOIN  THE  TYPE  SPEOHC A'HON  ”); 
inniLINECTr  IS  ALSO  POSSIBLE  THAT  ETIHER  ARRAY.ELEMENT  OR’’); 
PUT_LINE(”ARRAY  INDEX”  WAS  REQUIRED  BUT  NOT  USED  AS  IDENTIFIERS.”'); 
NEWJLINE; 
raise ; 


when  others  => 

PUT_LINE(””***  UNKNOWN  ERROR:  OCCURED  IN  procedure  ””); 
PUT.UNEC  ENCODE_ARRAY_ANDJTS_COMPONENTS.  "); 
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NEW  JUNE; 
raise ; 

end  GETjUWAY_(X)MPONENTS; 


end  DBrERMINE_THE_ADA_TYPE_HCG: 


-  Filename  /  Encode_ADT_Signature.a 
--  Date  /  30  August  93 

-  Author  /  Scott  Dolgoff 

-  System  /  Sun  SPARCstation 

-  Compiler  /  Verdix  Ada 

-  Description  /  This  program  encodes  the  signatures 

/  of  software  components  from  their  Prototype  System 
I  Description  Language  ( PSDL)  specifications . 


withPSDL  COMPONENT  PKG,  ADD_ADA_TYPE_TO_.SIGNATVRE_PKG; 
use  PSDLrcOMPONENT_PKG.  ADD_ADA_TYPE_TO_SIGNATURE,PKG: 


package  ENCODE_ADT_SIGNATURE_PKG  is 


procedure  ENCODE_ADT_SIGNATURE(INPUT_SIGNATURE  :  out  SIGNATURE; 

OUTPUT.SIGNATURE :  out  SIGNATURE); 


end  ENCODE_ADT_SIGNATURE_PKG; 


wi*  TEXTJO,  PSDL_CONCRETE_TYPE_PKG,  LOAD_PSDLJNTO_ADA_STRUCTURE_HCG, 
ITERATE  "tIWOUGH  ADT_0PERAT0R_PARAMETERS_HCG.PSDLJD_PKG; 
use  TEJCrjo.  PSDL_03NCRETE_TYPE_PKG.  ljOAD_PSDLJNTO^A^STRUCrURE_PKG. 

ITERATE_THROUGH_ADT_OPERATOR_PARAMErERS_PKG.PSDLJD_PKG; 


package  body  ENCODE_ADT_SIGNATURE_PKG  is 
INPUT  SWITCH 

constant  IO_SWITCH_CLASSES  :=  INPUT.PARAMETER; 
OUTPUT.SWITCH 
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comtant  IO_SWrrCH_CLASSES  :=  OinPUT.PARAMETER; 

TYPe_CX)MPONENT 
PSDL_COMPONENT_PKG.DATA  TYPE; 

OPBRATOR_COUNT 
INTEGER  :=0; 

-  WORKINGJOOCJSIGNATURE  is  initialized  to  0.  It 

-  enables  an  aggregate  signature  (aggregate  of  all  ADT  Operator 

-  signatures)  to  be  built. 

WCMRKINGJNPUT.SIGNATURE.  WORKING.OUTPUT.SIGNATURE  :  SIGNATURE; 
OPERATORJNPUT.SIGNATURE,  OPERATOR^OUTPUT.SIGNATURE :  SIGNATURE; 


"  procedure  passed  to  generic  scan  procedure  in  generic  map  package 

-  extracts  the  ADT  Operators  from  the  Type  component 

-•map 

procedure  GET_ADT_OPERATORS(ID  ;  in  PSDLJD_PKG.PSDLJD; 

OPERATOR_COMPONENT :  PSDL_COMPONENT_PKG.OPERATOR); 


"  iterate  through  the  Operation  map  to  extract  the  set  of  output 
-  parameters. 

procedure  1TERATE_TKROUGH_ADT_OPERATORS  it  net 

PSDL_COMPONENTJ>KG.OPERA‘nON_MAP_PKG.GENERIC_SCAN(GENERATE=>GETjU)T  OPERATO 
RS); 


procedure  STORE_ADT_OPERATOR_SIGNATURES  JN_FILE(OP_NAME :  in  STRING; 

TP_NAME :  in  STRING)  is 

package  INTEGER  JNOUT  is  new  INTEGER_IO<INTEGER); 
use  INTEGER^INOUT; 

"  ADT  operator  names  are  the  catenation  of  the  ADT  component 
—  name  with  a  and  the  ADT  operator  name. 

SIG_FILE_NAME :  constant  STRING  :=  TP.NAME  &  &  OP  NAME  &  ".txt"; 

SIG_FILE :  TEXTJO.FILE.TYPE; 


begin 


"  Create  the  file  using  operator  name  to  store  the 
-  Operator  signatures  in. 

1EXTJO.CREATE(SIG_FILE.  MODE  =>  OUT_FIl£.  NAME  =>  SIG_FILEJ<AME); 

“  Store  Operator  input  signature. 

Ibr  REGION  in  ALL.REGIONS'FIRST ..  ALL_RBGIONS  LAST  loop 

“  Note:  Setting  WIDTH  to  zero  is  critical  because 
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it  left  justifies  the  numbers.  This  makes 
it  easy  on  the  C++  program  that  has  to  read 
the  numbers  from  a  file  as  characters  and 
then  convert  them  to  integers. 

PUT(SIG_F1LE.  OreRATORJNPUT_SIGNATURE(REGION).  WIDTH  =>  0); 

NEWJLINE(SIG_FILE): 

end  loop; 


-  Store  Operator  oMput  signature. 

fat  REGION  in  ALL.REGIONS  FIRST ..  ALLJIEGICWS'LAST  loop 

PUT(SIG_FILE,  OreRATOR_OUTPlJT_SIGNATURE(REGION).  WIDTH  =>  0); 
NEW_LINE(S1G_FILE); 

end  loop; 

TEXT_IO.CLOSE(SIG_FILE); 
end  STORE_ADT_OPERATOR_SIGN  ATURES JN.RLE; 


procedure  UPDATE_WORKING_SIGNATURE(THE_SIGNATURE :  in  SIGNATURE; 

lO.SWrrCH  :  in  lO.SWTTCH.CLASSES)  is 


begin 

for  REGION  in  ALL.REGIONS  FIRST ..  ALL.REGIONSl.  AST  loop 


caselO.SWTTCHis 


when  INPUT.PARAMETER  => 

WORKING_INPUT_SIGNATURE(REGION)  ;=  WORraNG_INPUT_SIGNATURE(REGION)  + 
THE_SIGNATURE(REGION); 


when  OUTPUT.PARAMETER  => 

WORKING_OUTPUT_SIGNATURE(REGION)  :=  WORKING_OUTPUT_SIGNATURE(REGION)  + 
THE_SIGNATURE(REGION); 


end  case; 


end  loop; 


end  UPDATE_WORKING_SIGNATURE; 


-  procedure  passed  to  generic  scan  procedure  in  generic  map  package 
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--  extracts  the  ADT  Operators  from  the  Type  component 
--map 

procedure  GET_ADT_OPERATORS(ID  :  in  PSDL_ID_PKG  PSDLJD; 

OreRATOR_COMPONENT :  PSIH._COMPONENT_PKG.OPERATGR)  is 
COMPONENT JD  :  PSDLJD_PKGJ»SDL_ID; 

OUTPUT_PARAMETERS.  INPUT.PARAMETERS : 
PSDU.CCWCRETE_TYPE_PKG.TYPE_DECLARATIC»J; 


begin 


“  provide  necessary  component  to 

-  ITERATE  JHROUGH_ADT_OPERATOR_PARAMErERS_PKG 

PASS_ADT_OreRATOR(OreRATOR_COMPONEND: 

OPERATOR^COUNT  :=  OPERATOR.COUNT  + 1; 


"  get  the  Operator's  input  parameters 

INPl  T.PARAMETERS  :=  PSDL_COMPONENT_HCGJNPUTS(OPERATOR^COMPONEND; 

-  initialize  signatures  to  empty 

INrriAljm_TOE_SIGNATURES(INPUT_SWITCH); 

--  iterate  through  the  input  parameters  to  get  the 

-  input  parameter  signature  for  this  Operator 

ITERATE_THROUGH_INPUT_PARAMETERS(INPUT_PARAMETERS); 

retrieve  signature  value  from 

ITERATE  THROUGH  OPERATOR_PARAMETERS_PKG 

GET.INPUT.SIGNATUR^OPERATORJNPUT.SIGNATURE); 


-  get  the  Operator's  output  parameters 

OUTPUT.PARAMETERS  :=  PSDL_COMPONENT_PKG.OUTPUTS(OPERATOR^COMPONENT); 

“  initialize  signatures  to  empty 

INrilAUZE_THE_SIGNATURES(OUTPUT_SWrrCH); 

“  iterate  through  the  output  parameters  to  get  the 

-  output  parameter  signature  for  this  Operator 

rrERATE_THROUGH_OUTPUT_PARAMETERS(OUTPUT_PARAMETERS); 

get  signature  value  from 

ITERATE JHROUGH_OPERATOR_PARAMETERS_PKG 

GEr_Oim»OT_SIGNATURE(OPERATOR_OUTPUT_SIGNATURE): 

"  update  the  working  signatures  to  aggregate  the  new  type 

-  irformation 

UPDATE_WORKING_SIGNATURE(OPERATOR_INPUT_SIGNATURE,INPUT_SWrrCH): 

UPDATE_WORKING_SIGNATURE(OPERATOR_OinPirr_SIGNATURE.OUTTUT_SWlTCH); 
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-  Store  the  ADTjOPERATOR  signature  in  a  text  file.  We  need 

-  0  store  each  set  of  input  and  output  signatures  in  two 

-  d^erent  files.  One  is  used  for  loading  an  ADT  into  the 

“  CAPS  software  base.  The  other  is  irformation  on  the  query 

-  component  that  is  used  during  matching. 

CX»APONENTJD  :=  PSDL_CX)NO<»®n'_PKG AME(TYPe_CX»IPC»IBNT); 
STORe>DT_OPEIlATOR_SIGNATURES JNJSILEODJS.  COMPCWENTJD^); 

end  GET_ADT_0PERAT0RS; 
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procedure  ENCODE_ADT_SIGN  ATURE(INPUT_SIGNATURE  :  out  SIGNATURE; 

OUTPUT.SIGNATURE :  out  SIGNATURE)  is 


ADT.OreRATORS ;  PSDL_COMPONENT_PtG.OraRA’nON_MAP; 


begin 


-  get  the  Type  component 

RETRIEVE_TYPE_CX)MPONENT(TYPE_COMPONEND; 

~  initialize  the  signatures  to  0 

far  REGION  in  ALL.REGIONS'FIRST ..  ALL.REGIONS  LAST  loop 

INPUT_SIGNATURE(REGION)  :=  0; 
OUTPUT_SIGNATURE(REGION)  :=  0; 

WORKING JNPUT_SIGNATURE(REGION)  ;=  0; 
WORKING_OUTPUT_SIGNATURE(REGION)  :=  0; 


end  loop; 


-  retrieve  the  nuq)ping  of  ADT  Operators 

ADT.OPERATORS  :=  PSDL_COMPONENT_PKG.OPERATIONS(TYPE_COMPONEND; 

-  check  to  see  if  the  Type  component  has  Operators 
if  not  (OPERATION J^_PKG.EQUAL(ADT_OPERATORS, 
PSDL.COMPONENT.PKG.EMPTY.OPHlA'nONJklAP))  then 

rrERATE_THROUGH_ADT_OPERATORS(ADT_OPERATORS); 


end  if  ; 

INPUT.SIGNATURE  :=  WORKING_INPUT_SIGNATURE: 
OUTPUT_SIGNATURE  :=  WORKING_OUTPUT_SIGNATURE; 


exception 

when  UNDEFINED_USER_DEFINED_TYre  => 
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FUT_LlNE("CQiTections  may  be  needed  to  the  I^ototype  PSDL  tpec.")-, 
PirrjLJNE("***  THIS  PROGRAM  CANNOT  CONTINUE  •*•"); 
raise ; 

when  INVALID JUJA^TYPE  => 

PUT_LINE(’‘Conections  may  be  needed  to  the  I^ototype  PSDL  tpec."); 
PUT_LlNE("Us6r  defined  types  must  be  given  a  cotreqxxiding  Ada"); 
PUT.LlNEC'type  in  their  PSDL  specification."): 

PUT_LINE("***  THIS  PROGRAM  CANNOT  CONTINUE  *•*"); 
raise ; 

when  PROTOTYPEJ!ILE_NOT_FOUND  *> 

PUT_LINEC***  THIS  mOGRAM  CANNOT  CONTINUE  *••"); 
raise ; 

when  OreRATORJFILE JIOT_FOUND  => 

PUT_LINE("***  THIS  PROGRAM  CANNOT  CONTINUE  •••"); 
raise ; 

when  others  => 

PUT_LINE("***  THIS  PROGRAM  CANNOT  CONTINUE  •••"); 
raise ; 

end  ENCODE.  ADT.SIGNATURE; 
end  ENCODE_ADT_SIGNATURE_PKG; 


*<>< 


”  Filename  /  Encode_Operator_Signature.a 
”  Date  1 29  August  93 

-  Author  /  Scott  Dolgqff 

"  System  /  Sun  SPARCstation 

-  Compiler  /  Verdix  Ada 

-  Description  /  This  program  encodes  the  signatures 

/  of  software  components  from  their  Prototype  System 
I  Description  Language  (PSDL)  specifications. 

with  PSDL.COMPONENT.PKG,  ADD.ADA.TYPE.TO.SIGNATURE.PKG; 
use  PSDL_COMPONENTJ>KG,  ADD.ADA.TYTC.TO.SIGNATURE.WCG; 

package  ENCODE.OPERATOR.SIGN  ATURE_PKG  is 

procedure  ENCODE.OPERATOR.SIGNATUREONPUT.SIGNATURE  :  out  SIGNATURE; 

OUTPUT.SIGNATURE :  out  SIGNATURE); 

end  ENCODE.OPERATOR.SIGNATURE.PKG; 
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wiA  TEXTJO,  PSDL_CX>NCRETE_TYPEJ>KG.  L0AD_PSDLJNT0JU)A^STRUCTURE_PKG, 
ITERATE_THROUGH_OreRATOR_PARAMETERS_HCG.  PSDL.PROGRAMJKG; 
use  TEXTJO.  PSDL_CONCRETE_TYPE_nCG.  LOAD_PSDLJNTO_ADA^STRUCTURE_WCG. 
rreRATB_THROUGH_OreRATOILPARAMETERS_PKG.  PSDLJ>ROGRAM_PKG; 


package  body  ENCODE_OPERATOR_SIGNATURE_PKG  is 

INPUT.SWrrCH  :  constant  lO.SWTTCH.CLASSES  :*  INPUT.PARAMETSl; 
OUTTOT.SWITCH  :  constant  lO.SWTTCH.CLASSES  :=  OUTPUT.PARAMETER; 
raOTOTVre.SPEC  :  PSDL_PROGRAM_HCG.PSDL_PROGRAM: 
OPERATOR^COMPONENT ;  PSDL_COMPONENT_PKG.OreRATOR: 


procedure  ENCODE_OPERATOR_S1GNATURE(]NPUT_SIGNATURE  :  out  SIGNATURE; 

OUTPUT.SIGN  ATURE :  out  SIGNATURE)  is 


OUTPUT_PARAMETERS.  INPUT_PARAMETERS : 
PSDL_CONCRETE_TYPE_FiCG.TyPE_DECLARATION; 


begin 


--  get  Prototype  specification 

RETRIEVE_PROTOTYPE_SPEC(PROTOTYPE_SPEC); 

-  get  the  Operator  component 

RETRIEVE_OPERATOR_COMPONENT(OPERATOR_COMPONENT); 

”  Pass  the  components  to  the  packages  that  will  need 
"  them 

SEND_COMPONENTS(OPERATOR_COMPONENT.  PROTOTYPE.SPEC); 


"  get  the  Operator’s  input  parameters 

INPUT_PARAMETERS  :=  PSDL_COMPONENT_PKGJNPUTS(OPERATOR_COMPONENT); 

--  initialize  signatures  to  empty 

INmAIJZE_'niE_SIGNATURES(INPUT_SWITCH); 

--  iterate  through  the  input  parameters  to  get  the 
-  input  parameter  signature  for  this  Operator 
ITERATE_THROUGH_INPUT_PARAMETERS(INPUT_PARAMErERS); 
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retrieve  signature  value  from 

ITERATE JHROUGH_OPERATOR_PARAMErERS_PKG 

GET_INPm'_SIGNATURE(Ihn>UT.SIGNATURE); 


-  get  the  Operator's  output  parameters 

OirrPUT_PARAMETERS  :=  reDL_COMPONENT_i^G.OiriPim(OP0UTOR_CC»IPONENT); 

-  initialize  signatures  to  empty 

INniAIJZEJIHE_SIGNATURES(Oim>UT_SWrrCH); 

-  iterate  through  the  output  parameters  to  get  the 

-  output  parameter  signature  for  this  Operator 

rrERATEjnaOUGH_OUTPin'_PARAMETERS(OUTPUT_PARAMETERS); 

retrieve  signature  value  from 

ITERATE JHROUGH_OPERATOR_PARAMETERS_PKG 

GET_OUTPUT_SIGNATURE(OlJTPUT_SIGNATURE); 


exception 

wh«i  reOTC)TYPE_FILE_NOT_FOUND  => 

PUT_LINE("***  THIS  PROGRAM  CANNOT  CONTINUE  •••”); 
raise ; 

when  OPERATOR^FILE_NOT_FOUND  => 

PUT_UNEC'***  THIS  PROGRAM  CANNOT  CONTINUE  **•"); 
raise ; 

when  others  => 

PUT_UNE("***  THIS  PROGRAM  CANNOT  CONTINUE  •♦*"); 
raise ; 

end  ENCODE_OPERATOR_SIGNATURE; 
end  ENCODE_OPERATOR_SIGNATURE_PKG; 


-  Filename  /  Load_PSDL_Into_Ada_Structure_Pkg.a 

”  Date  /  29  August  93 

-  Author  /  Scott  Dolgoff 

-  System  /  Sun  SPARCstation 

-  Compiler  /  Verdix  Ada 

-  Description  /  This  program  encodes  provides  the  necessary  routines 
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/  to  load  a  PSDL  specification  into  an  Ada  data  structure. 
I  An  Operator,  Type,  or  a  full  blown  Prototype  PSDL 
!  specification  can  all  be  loaded.  Normally  the 
/  Prototype  Specification  can  then  be  searched  to 
/  extract  specific  Types  by  name. 

with  PSDL_COMPONENT_PKG,  PSDL_reOGRAM_PKG: 

use  PSDL_CX)MPONENT_PKG,  PSDL_PR(X3RAM_PKG; 

padkage  LOAD_PSDL_INTO_ADA_STRUCTURE_PKG  is 


~  Provides  access  to  the  stored  Operator  component. 

procedure  RErRIEVE_OPERATOR_COMPONENT(OP_COMPONENT  out 

PSDt_CX)MPONENT_PKG.OPERATOR); 


~  Provides  access  to  the  stored  Type  component. 

procedure  RETRIEVE_TYPE_COMPONENT(TP_COMPONENT  out 

PSDL_CXDMPONENT_PKG.DATA_TYPE); 

-  Provides  access  to  the  stored  prototype  specification. 

procedure  RETRIE\^_PROTOTYPE_SreC(PROTCyrYPE_SPEC  out 

PSDL_PROGRAM_PKG.PSDL_PROGRAM); 


-  exceptions 

-  PSDL  specification  (text  file)  for  the  Operator  is  not  in 

-  the  current  directory 
OPERATOR_FILE_NOT_FOUND  :  excrption; 

-  PSDL  specification  (text file)  for  the  Type  is  not  in 

-  the  current  directory 
TYPE_FILE_NOT_FOUND  :  exception; 

-  PSDL  specification  (text  file)  for  the  prototype  is  not  in 

-  the  current  directory 
PROTOTYPE_nLE_NOT_FOUND :  exception; 

end  LOAD_PSDL_INTO_AD  A_STRUCTURE_PKG; 


with  TEXTJO,  PSDL  JO,  PSDL_ID_PKG; 
me  TEXTJO,  PSDL  JO,  PSDL_ID_PKG; 
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package  body  LOAD_PSDL_INTO_ADA_STRUCTURE_PKG  is 


”  procedure  passed  to  generic  scan  procedure  in  generic  mcp  package 
-  extracts  the  Operator  from  the  PSDL  spec^cation  (psdl _program) 
procedure  GET_OPERATOR(ID  :  in  PSDL_ID_PKG.PSDLJD; 

CXJMPONENT :  in  PSDL_COMPONENT_PKG.PSDL_CX)MPONENT): 

"  iterate  through  the  PSDL  specification  to  extract  the  Operator.  Even 

-  though  this  PSDL  specification  only  has  one  Operator  (and  no  Types),  it 

-  is  initially  stored  as  a  psdl  jprogram  and  we  need  it  in  the  form  of 
"  a  psdljcomponent  to  later  extract  the  input  and  output  parameters. 

procedure  ITERATE_THROUGH_OPERATOR_PSDL_SPECIFICA’nON  is  new 

PSDL_PROGRAM_PKG.PSDL_PROGRAM_MAP_PKG.GENERIC_SCAN(GENERATE=>GET_OPERATOR). 


-  procedure  passed  to  generic  scan  procedure  in  generic  map  package 

-  extracts  the  Type  from  the  PSDL  specification  (psdl _program) 
procedure  GET_TYPE(ID  :  in  PSDL_ID_PKG.PSDL_ID; 

COMPONENT :  in  PSDL_COMPONENT_PKG.PSDL_COMPONEND; 

--  iterate  th  ough  the  PSDL  specification  to  extract  the  Type.  Even 

-  though  this  PSDL  specification  is  comprised  of  only  one  Type,  it 
--  is  initially  stored  as  a  psdl jyrogram  and  we  need  it  in  the  form  of 

-  a  psdljcomponent  to  later  extract  the  input  and  output  parameters  of 
--  the  Type's  operators. 

procedure  ITERATE_THROUGH_TYPE_PSDL_SPECIHCATION  is 

PSDL_PROGRAM_PKG.PSDL_PROGRAM_MAP_PKG.GENERlC_SCAN(GENERATE=>GEr_TYPE); 


PROTOTYPE_SPECinCATION.  OPERATOR.SPEC,  TYPE_SPEC : 
PSDL_PROGRAM_PKG.PSDL_PROGRAM; 
OPERATOR.COMPONENT 
PSDL_COMPONENT_PKG.OPERATOR; 

TYPE.COMPONENT 

PSDL_COMPONENT_PKG.DATA_TYPE; 

TYPE.ID,  OPERATORJD  :  PSDL_ID_PKG.PSDL_ID; 


"  procedure  passed  to  generic  scan  procedure  in  generic  map  package 
-  extracts  the  Operator  from  the  PSDL  specification  (psdl j)rogram) 
procedure  GET_OPERATbR(ID  :  in  PSDL_ID_PKG.PSDL_ID; 

COMPONENT :  in  PSDL_COMPONENT_PKG.PSDL_COMPONENT)  is 


begin 

OPERATOR_ID:=ID; 
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OMRATCMLCOMPONENT  :=  COMPONENT; 
endOET.OPERATOR; 

"  Loads  OPERATOR_SPEC  data  structure  with  the  PSDL  specification 

--  of  the  operator  and  then  stores  the  operator  in  an  OPERATORjCOMPONENT 

-  data  structure. 

procedure  GET_OPERATOR_COMPONENT  is 

OPERATOR^FILE_NAME ;  constant  STRING  :=  "opcrator_psdLspcc.txt"; 

OPERATOR.FILE  :  TEXT_IO.FILE_TYPE; 

begin 

”  open  the  file  that  contains  the  operator  PSDL  specification 
TEXTJO.OPEN(OPERATOR_FILE.  MODE  =>  IN_FILE,  NAME  =>  OraRATORJ^.NAME); 

“  parse  the  operator  PSDL  specification  and  insert  it  into 
--  the  Ada  data  structure  OPERATOR  SPEC 
PSDLJO  GET(OPERATOR_FILE.  OPERATOR_SPEC): 

TCXT_IO.CLOSE(OPERATOR_FILE): 

-  iterate  through  the  PSDL  specification  to  extract  the  Operator. 

-  Though  this  PSDL  specification  only  has  one  Operator  (and  no  Types), 

-  it's  initially  stored  as  a  psdl _program  and  we  need  it  in  the  form  of 

-  a  psdl_component  to  later  extract  the  input  and  output  parameters. 

-  The  global  variable  OPERATOR _COMPONENT  receives  the  data. 

ITERATE_THROUGH_OPERATOR_PSDL_SPECinCA'nON(OPERATOR_SPEC); 

exception 

when  NAME.ERROR  => 
raise  OPERATOR_nLE_NOT_FOUND; 

when  others  => 

PUT_LINE("***  UNKNOWN  ERROR:  Occurred  in  procedure  "); 
PUT_LINE("Get_Operator_Component.”); 

raise ; 

end  GET_OPERATOR_COMPONENT; 


—  Provides  access  to  the  stored  operator  component. 

procedure  RETRIEVE_OPERATOR_COMPONENT(OP_COMPONENT  out 

PSDL_COMPONENT_PKG.OPERATOR)  is 


begin 


-  Loads  OPERATOR  SPEC  data  structure  with  the  PSDL  specification 

-  of  the  operator  and  then  stores  the  operator  in  an  OPERATORJCOMPONENT 
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-  data  structure. 

GET_OreRATOR_CX)MPONENT; 


OP.COMPONENT  :=  OreRATOR_CX)MPONENT; 


exc^on 

when  OPERATOR_FILE_NOT_FOUND  => 

I*UT_lJINE(The  file  'opentar_p8dLspec.txt'  is  missing"); 
PUTJLlNE(”from  tfie  diiectory.  It  should  contain  the  PSDL"); 
PinLUNECspecification  for  the  operator  whose  signature"); 
FUT_LINE("we  are  calculating."); 
raise ; 

end  RETWEVE_OPERATOR_COMPONENT; 


-  procedure  passed  to  generic  scan  procedure  in  generic  map  package 
--  extracts  the  Type  from  the  PSDL  specification  (psdl _program) 

procedure  GET_TyPE(ID  :  in  PSDL_ID_PKG.PSDL_ID; 

COMPONENT :  in  PSDL_COMPONENT_PKG.PSDL_COMPONEND  is 


begin 

TYPE.ID  :=  ID; 

TYPE.COMPONENT  :=  COMPONENT; 


endGET.TYPE; 


-  Loads  TYPE  SPEC  data  structure  with  the  PSDL  specification 
“  of  the  Type  and  then  stores  the  Type  in  a  TYPE  COMPONENT 

-  data  structure. 

procedure  GET_TYPE_COMPONENT  is 

TYPE_FILE_NAME :  constant  STRING  :=  "type_psdl_spec.txt"; 

TYPE_FILE  :  TEXT_IO.FILE_TYPE; 

begin 

-  open  the  file  that  contains  the  Type  PSDL  specification 

TEXTJO.OPEN(TYPE_FILE,  MODE  =>  IN.HLE,  NAME  =>  TYPE_FILE_NAME); 

-  parse  the  Type  PSDL  specification  and  insert  it  into 

-  the  Ada  data  structure  TYPE  SPEC 

PSDL_IO.GET(TYPE_FILE,  TYPE.SPEC); 

TEXTJO.CLOSE(TYPE_HLE); 
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--  iterate  through  the  PSDL  specification  to  extract  the  Type. 

-  Though  this  PSDL  specification  only  has  one  Type, 

--  it's  initially  stored  as  a  psdl _program  and  we  need  it  in  the  form  of 

-  a  psdl_compoMnt  to  later  extract  the  input  and  ou^ut  parameters 

-  of  the  Type's  operators. 

-  The  glo^l  variable  TYPEjCOMPONENT  receives  the  data. 

rrElUTE_THROUGH_TYPE_PSDL_SPECinCATI(»l{TYPE_SPEC); 

exception 

when  NAME_ERROR  => 
raise  TYre_FILE_NOT_FOUND; 

when  others  => 

PUT_LINE("***  UNKNOWN  ERROR;  Occurred  in  procedure  "); 

PUT_LINE("GeL.Type_ComponenL"); 

raise ; 

endGET_TYPE_r  MPONENT; 


-  Provides  access  to  the  stored  Type  component. 

procedure  RETRIEVE_TYPE_COMPONENT(TP_COMPONENT  out 

PSDL_COMPONENT_PKG.DATA_TYPE)  is 


begin 

-  Loads  TYPE_SPEC  data  structure  with  the  PSDL  specification 
"  of  the  Type  and  then  stores  the  Type  in  a  TYPEjCOMPONENT 

-  data  structure. 

GET_TYPE_COMPONENT; 


TP.COMPONENT  :=  TYPE_COMPONENT; 


exception 

when  TYPE_FILE_NOT_FOUND  => 

PUT_LINE("The  file  'typc_psdl_spec.txt'  is  missing”); 
PUT_lJNE("from  the  directory.  It  should  contain  the  PSDL"); 
PUT_LINE( "specification  for  the  Type  whose  signature"); 
PUT_LINE("we  are  calculating."); 
raise ; 

end  RETRBEVE.TYPE.COMPONENT; 


"  Loads  PROTOTYPE _SPEC  data  structure  with  the  PSDL  specification 
-  of  the  prototype. 
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procedure  GET.HlOTOTYre.SPEC  is 

PROTOTYre_FILE_NAME ;  constant  STRING  :=  "prototype_psdl_spec.txt'‘: 

PROTOTYPE_FILE  :  TEXT_IO.FILE_TYPE; 

begin 

--  open  the  file  that  contains  the  prototype  PSDL  specification 

TEXTJO.OPEN(PROTOTYre_FILE.  MODE  =>  IN_FILE.  NAME  =>  HlOTOTryPE_FILE JIAME); 


"  parse  the  prototype  PSDL  specification  and  insert  it  into 
-  the  Ada  (Uita  structure  PROTOTYPEJSPEC 
PSDLJO.GET(PROTOTYPE_FILE.  PROTOTYPE.SPECIFICATION); 

TEXTJO.CLOSE(PROTOTYPE_FILE); 

exception 

when  NAME_ERROR  => 
raise  PROTOTYPE_FILE_NOT_FOUND; 

when  others  => 

PUT_LINE("***  UNKNOWN  ERROR:  Occurred  in  procedure  "); 

PUT_LINE("Get_ProtDtype_Spec.''); 

raise ; 

end  GET_PROTOTYPE_SPEC; 


-  Provides  access  to  the  stored  prototype  specification. 

procedure  RETRIEVE_PROTOTYPE_SPEC(PROTOTYPE_SPEC  out 

PSDL_PROGRAM_PKG.PSDL_PROGRAM)  is 

begin 

-  loads  PROTOTYPE  SPEC  data  structure  with  the  PSDL  specification 

--  of  the  prototype 

GET_PROTOTYPE_SPEC; 

PROTOTYPE.SreC  ;=  PROTOTYPE.SPEOTICA'nON; 
exception 

when  PROTOTYPE_nLE_NOT_FOUND  => 

PUT_LINE("The  file  'prototype_psdl_spec.txt'  is  missing”); 

PUT_LINE("from  the  directory.  It  should  contain  the  PSDL"); 

PUT..LINE("specification  for  the  prototype  system  that"); 

PUT_LINE(”the  operator  for  which  we  ate  calculating  a  "); 

PUT_LINE("signature  belongs."); 
raise ; 


end  RETRIEVE_PROTOTYPE_SPEC; 
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Old  LOAD  JPSDL  JNTO_ADA_STRUCTURE_PKG; 


”  Filename  /  Parameter_Iterator_Pkgai 
"  Date  /  29  August  93 

-  Author  /  Scott  Dolgoff 

--  System  /  Sun  SPARCstation 

-Compiler  /VerdixAda 

-  Description  /  This  program  encodes  the  signatures 

/  of  software  components  from  their  Prototype  System 
I  Description  Language  (PSDL)  specifications. 

with  PSDL_ID_PKG.  PSDL_CONCRETE_TYPE_PKG.  ADD_ADA_TYre_TO_SIGNATURE_PKG, 
PSDL_COMPONENT_PKG.  PSDL_PROGRAM_PKG; 

use  PSDLJD  HCG.  PSDL_CONCRETE_TYPE_PKG.  ADD_ADA^TYPE_TO_SICTJATURE_PKG, 
PSDL.COMTONENT.PKG,  PSDL_PROGRAM_PKG; 

package  nERATE_TOROUGH_OPERATOR_PARAMETERS_PKG  is 

"  procedure  passed  to  generic  scan  procedure  in  generic  map  package 

-  extracts  the  input  parameters  from  the  Type  Declaration 

-  map 

procedure  GET_IN_PARAMETER(ID  :  in  PSDL  ID  PKG.PSDLJD; 

TYPE_NAME ;  in  PSDL_CONCRETE_TYPE_PKG.TYPEJ^AME); 

"  iterate  through  the  Type  Declaration  map  to  extract  the  set  of  input 
-  parameters. 

procedure  ITERATE_THROUGH_INPUT_PARAMETERS  is  new 

PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARATION_PKG.GENERIC_SCAN(G£NeiATE=>GEr_IN_PAR 
AMETER); 


-  procedure  passed  to  generic  scan  procedure  in  generic  map  package 

-  extracts  the  output  parameters  from  the  Type  Declaration 

-  map 

procedure  GET_OUT_PARAMETER(ID  :  in  PSDL_ID_RCG.PSDL JD; 

TYPEJ^  AME :  in  PSDL_CONCRETE_TYPE_WCG.TYPEJI  AME); 


-  iterate  through  the  Type  Declaration  map  to  extract  the  set  of  output 
"  parameters. 

procedure  rrERATE_THROUGH_OinTirT_PARAMETERS  i»  new 

PSDL_CX)NCREre_TYPE_PKG.TYPE_DECLARATION_PKG.GENERIC_SCAN(GENERA’re=>GET_OUT_PA 
RAMETER); 


-  Encoded  input  and  output  signatures  are  returned  by  these 

"  procedures.  NOTE:  the  procedure  ITERATE JTHROlJGHjcxx  PARAMETERS 

-  must  be  invoked  first  which  encodes  the  signature  value. 
procedure  GET  JNPUT.SIGN ATURE(IN_SIGN ATURE :  out  SIGNATURE): 
procedure  GET_OUTPUT_SIGNATURE(OUT_SIGNATURE :  out  SIGNATURE); 


"  ***  This  MUST  be  called  prior  to  encoding  an  Operator  or  Type 

-  Signature.  Sets  initial  signatures  to  all  O's.  IO_SWn'CH 
"  tells  the  procedure  whether  you  need  to  initialize  the  input 

-  or  output  signature. 

procedure  INmAUZE.THE.SIGNATURESaO.SWITCH :  IO_SWITCH_CLASSES); 

-  gets  the  necessary  component  values  needed  for  looking  up 

-  Ada  type  irformation 

procedure  SEND_COMPONENTS(MAIN_COMPONENT  in 

PSDL  COMPONENT_PKG.PSDL_COMPONENT; 

PROTO.SPEC  :  in  PSDL_PROGRAM_PKG.PSDL_PROGRAM); 


end  rrERATE_THROUGH_OPERATOR_PARAMETERS_PKG: 


with  TEXTJO,  ADA_RECOGNIZED_TYPES_PKG.  DETERMINE_THE_ADA_TyPE_PKG, 
TYPE_NAME_PKG,  A.STRINGS; 

use  TEXTJO.  ADA_RECOGNIZED_TyreS_PKG.  DETERMINE_THE_ADA_TYPE_HCG,  A_STRINGS: 

package  body  rrERATE_THROUGH_OPERATOR_PARAMETERS_PKG  is 

INPUT.SIGNATURE,  OUTPUT.SIGNATURE :  SIGNATURE; 

GV JIAME.  GV_UDT_NAME  :  PSDL_CONCRETE_TYPE_PKG.TYPE J4AME; 


-  gets  the  necessary  component  values  needed  for  looking  up 
"  Ada  type  information 

procedure  SEND_COMPONENTS(MAlN_COMPONENT 

PSDL_COMPONENT_PKG.PSDL_COMPONENT; 


228 


PROnO.SPEC  .  in  PSDL_FRCK3RAHJ1CGPa)LJ1(OCHlAM) » 


befin 

PASS_COMI<»4Ehrre(MAlN_CX)MPONENT.  PROTO.SPEC): 
end  SEND.CCMFONENTS; 


-  Encoded  input  and  closeness  signatures  are  returned  by  this 

-  procedure.  NOTE:  the  procedure  ITERATE  JHROVGHJNPlJT_PARAMETERS 

"  must  be  invoked  first  which  encodes  the  signature. 

pfoeedure  GErjWPUT_SIGNATURE(IN_SIGNATURE :  out  SIGNATURE)  is 

begin 

IN.SIGNATURE  :=  INPUT_SIGNATURE; 
end  GET_INPUT_SIGNATURE: 


--  Encoded  output  signature  is  returned  by  this 

procedure.  NOTE:  the  procedure 

ITERATE_THROUGH_OUTPUT_PARAMETERS 
-  must  be  invoiced  first  which  encodes  the  signature. 
piDceduie  GET_OUTPUT_SIGNATURE(OUT_SIGNATURE :  out  SIGNATURE)  is 

begin 

OUT.SIGNATURE  ;=  OUTPUT_SIGNATURE; 
end  GET_OUTPUT_SIGNATURE: 


-  initializes  or  resets  signatures  so  new  ones  can  be  computed 

procedure  INnTALIZE_THE_SIGNATURESaO_SWrrCH :  IO_SWrrcH_CLASSES)  is 

begin 

case  lO.SWTTCH  ir 

when  INPUT_PARAMETER  => 

INmALIZE.SIGNATURESONPUT.SIGNATURE); 

when  OUTPUT.PARAMETER  => 

INrilALIZE_SIGNATURES(OUTPUT_SIGNATURE); 

end  case; 

end  INniALIZE_THE_SIGNATURES; 
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procedure  ENCX)DE_ADA_TYPEJNTO_SIGNATURJE(TYPE_NAMEJD :  in  PSDLJDJ>KG.PSDLJD: 

lO.SWTTCH  ;  in  lO.SWTTCH  CLASSES; 
GENERIC_TYPE .  in  BOOLEAN)  is 


begin 

cnselO.SWrrCHis 


when  INPUT.PARAMETER  => 

ADD_ADA_TYPE_TO_SIGNATURE(TYPE_NAMEJD.  INPUT.SIGNATURE.  lO  SWITCH. 
GENERIC_TYre); 


when  OUTPUT_PARAMETER  => 

ADD_ADA_TYPE_TO_SIGN  ATURE(TYPE_NAMEJD,  OUTPUT.SIGN  ATURE,  lO.SWITCH, 
GENERIC.TYPE); 


end  case; 

end  ENCODE_ADA_TYPE_INTO_SIGNATURE; 


--  procedure  passed  to  generic  scan  procedure  in  generic  map  package 
--  extracts  the  input  parameters  from  the  Type  Declaration 
"  map,  NOTE  that  this  procedure  will  be  run  once  for  each  input 

-  parameter  as  the  entire  set  of  input  parameters  is  iterated  through. 

procedure  GET_IN_PARAMETER(ID  :  in  PSDL_ID_PKG.PSDL_ID; 

TYPE_NAME  :  in  PSDL_CONCRETE_TYPE_PKG.TYPE_NAME)  is 


"  User  Defined  Type  (UDT)  type  name 

UDT_TYPE_NAME.  GENERIC_TYPE_N AME,  ELEMENT  TYPE.  INDEX.TYPE,  THE_TYPE_NAME 

PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 

lO.SWTTCH 

IO_SWITCH_CLASSES; 

GENERIC.TYPE,  FOUND.TYPE 
BOOLEAN; 

OPERATOR.COMPONENT 

DETERMINE_THE_ADA_TYPE_PKG.COMPONENT_TYPE  :=  OPERATOR_COMP; 


begin 

lO.SWITCH  :=  INPUT_PARAMETER; 

THE_TYPE_NAME  :=  TYPE.NAME; 

GENERIC.TYPE  :=  FALSE; 

if  RECOGNIZED_ADA_TYPE(THE_TYPE_NAMEJ<AME)  then 
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-  Input  parameter  is  a  valid  Ada  type  so  go  ahead  and  encode 

-  the  current  Input _Signature  with  this  Ada  type. 

THELTYPe_NAMENAME  :=  A_STRINGS.IjOWEILTO_UPPER(THE_TYPEJ<AMENAME); 
ENCOI«ja)A_TYrejNTO_aGNATURE(THE_TYPE_NAMENAME.  lO.SWrrCH. 
GENERIC.TYPE); 

else 

-  Maybe  the  parameter  is  defined  in  the  generics  of  the 

-  Operator  component. 

CHECK_GENERICS(OreRATOR_C»MPONENT.  THE.TYPEJ^AME,  GENERIC_TYPE_NAME, 
FOUND.TYPE); 

ifFOUND.TYPEthen 

"  The  type  is  either  not  composite  or  even  if  composite, 

-  will  not  be  further  specified  by  its  components  so 

-  go  ahead  and  encode. 

UDT_TYPE_NAME  :=  GENERIC_TYPE_NAME; 

GENERIC.TYPE  :=  TRUE; 

else  -  The  parameter  must  be  a  user  defined  type  so 
-  get  its  type. 

GET_USER_DEFINED_TYPE(THE_TYPE_NAME,  UDT.TYPEJiAME); 
end  if; 

UDT_TYPE_NAMEJ1AME  :=  A.STRINGS  LOWER_TO_UPPER(UDT_TYre_NAMEJ4AME); 

--  go  ahead  and  encode  into  the  current  Input  Sigruiture. 

ENCODE_ADA_TyPE_INTO_SIGNATURE(UDT_TYPEjiAMEJIAME.IO_SWrrCH, 

GENERIC.TYPE); 


end  if; 
exception 
when  others  => 

PUT.LINEr***  ERROR:  OCCURED  IN  procedure  GET.IN.PARAMETER. "); 

NEWJJNE; 

raise ; 

end  GETJN.PARAMETER; 


--  procedure  passed  to  generic  scan  procedure  in  generic  map  package 

-  extracts  the  output  parameters  from  the  Type  Declaration 

-  imp.  NOTE  that  this  procedure  will  be  run  once  for  each  output 

-  parameter  as  the  entire  set  of  output  parameters  is  iterated  through. 

procedure  GET.OUT.PARAMETER(ID  :  in  PSDL JD.PKG.PSDLJD; 

TYPE_NAME :  in  PSDL.CONCRETE.TYPE.PKG.TYrejI  AME)  is 
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"  User  Defined  Type  (UDT)  type  name 

UDT.TYPE JIAME,  GENERIC_TYPE_NAME.  ELEMENT.TYPE,  INDE3CTYPE.  THE_TYrej4AME 

PSDL_CONCRETE_TYra_PKG.TYPEJ4AME; 

lo.swrrcH 

IO_SWrrCH_CLASSES; 

GENERIC.TYPE,  FOUND.TYPE 
BOOLEAN; 

OPERATOR_COMPONENT 

DETER^II^ffi_THE_ADA_TYre_PKG.COMPONENT_TYPE  :=  OreRATOFLCOMP; 


begin 

lO.SWrrCH  :=  OUTPUT.PARAMETER; 

THE_TYPEJ^AME  :=  TYPE_NAME; 

GENERIC.TYPE  :=  FALSE; 

if  RECOGNIZED.AD  A_TYPE(THE_TYPE_NAMEJ^AME)  then 

--  Output  parameter  is  a  valid  Ada  type  so  go  ahead  and  encode 

-  into  the  current  Output  Signature. 

THE_TYPE_NAMENAME  :=  A_STRINGS.LOWHl_TO_UPPER(THE_TyPE_NAMEJ4AME); 

ENCODE_ADA_TYPE_INTO_SIGNATURE(THE_TYPE_NAMEJ4AME.IO_SWrrCH. 

GENERIC.TYPE); 

else 

-  Maybe  the  parameter  is  defined  in  the  generics  of  the 
"  Operator  component. 

CHECK_GENERICS(OPERATOR_COMPONENT,  •mE_TYPE_NAME,  GENERIC_TYPE_NAME, 
FOUND.TYPE); 

ifFOUND.TYPEthen 

"  The  type  is  either  not  composite  or  even  if  composite, 

—  will  not  be  further  specified  by  its  components  so 

—  go  ahead  and  encode. 

UDT_TYPE_NAME  :=  GENERIC_TYPE_NAME; 

GENERIC.TYPE  :=  TRUE; 

else  "  The  parameter  must  be  a  user  (kfined  type  so 
—  get  its  type. 

GET_USER_PEFINED_TYPE(THE_TYPEJ^AME,  UDT_TYPEJ4AME); 
end  if; 

UDT_TYPE_NAMENAME  ;=  A_STRINGS.LOWER_TO_UPPER(UDT_TYPE_NAMEJ<AME); 

—  Go  ahead  and  encode. 

ENCODE_ADA_TYPE_INTO_SIGNATURE(UDT_TYPE_NAMEJ<lAME,IO_SWrrCH. 
GENERIC_TYPE); 
end  if; 
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excqilion 


when  others  =>  _ 

PUT  UNEC'***  ERROR:  OCCURED  IN  procedure  GET_OUT_PARAMETER. "); 

NEW_LINE; 

raise ; 

end  GEr_OUT_PARAMETER; 

end  rrERATE_THROUGH_OPERATOR_PARAMETERS J>KG; 


--  Filename  /  Parameter_List_Pkg.a 

--  Date  /  72  Aug  93 

-  Revised  /  75  Aug  93 

-  Author  /  Scott  Dolgoff 

"  System  /  Solbourne 

”  Compiler  /  Verdix  Ada 

-  Description  /  This  package  provides  a  data  structure  for  storing 

/  parameter  lists  and  the  operations  necessary  to 
/  be  performed  on  the  data  structure.  The  structure 
/  contains  some  attributes  that  are  particular  to  one  of 
I  the  following  three  categories  -  (a)  query  component 
/  input  and  output  parameters,  (b)  software  base 
/  component  input  and  output  parameters,  and  ( c)  software 
/  base  component  generic  parameters. 

/  The  parameter  lists  are  used  during  the  component 
/  transformation  process  to  kelp  establish  a  final 
/  mapping  of  parameter  types  between  the  query 
/  and  software  base  components. 


with  PSDL_ID_PKG; 
use  PSDL_ID_PKG; 

package  PARAMETER_LIST_PKG  is 


type  PARAMETER_UST_NODE; 

type  PARAMETERS  is  access  PARAMETER_UST_NODE; 
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type  PARAMETER_LIST_NODE  is  record 
-  parameter  identifier  name 
ro  :  PSDLJD.PKG  PSDLJD; 

"  parameter  type  name 

THE_TYre  :  PSDL_ID_PKG.PSDL_ID; 

"  array  element  type  name  (only  used  ifTHEJTYPE  is  an  array) 
ARRAY_ELEMENT_PTR  :  PARAMETERS; 

-  array  index  type  name  (only  used  ifTHEJTYPE  is  an  array) 

ARRAY JNDE>C_PTR  :  PARAMETERS: 

-  pointer  to  the  parameter  in  other  component  that  this 

-  parameter  is  mapped  to.  null  indicates  no  mapping.  For 

-  generic  parameters  this  will  also  help  locate  the  Ada 
”  type  the  generic  is  instantiated  with. 

MAPPING  :  PARAMETERS  ;=  nuU; 

-  link 

NEXT  :  PARAMETERS  :=  nuU; 

-  user  defined  type  (UDT).  It  is  necessary  to  record  a 

-  UDT  r^erenced  by  a  parameter.  Certain  UDTs  will  be 
--  of  an  Ada  type  that  must  be  either  constrained  (i.e.  like 

-  Range  or  better  defined  (i.e.  like  Record).  If  these 

-  UDTs  are  used  to  instantiate  a  generic,  then  they  must 
"  be  used  exactly  as  implemented  in  the  protype  to  make 

-  use  of  their  constraint  or  definition  information.  Thus 

-  in  the  transformation  shell  their  Ada  specification 

-  packages  must  be  "with"ed  and  their  names  r^erred  to 

-  explicitly. 

UDT  \  ;  PSDL_ID_PKG.PSDL_ID; 

-  indicates  whether  THEJTYPE  came  from  a  UDT 

HAS.UDT  :  BOOLEAN  :=  FALSE; 

"  This  attribute  is  used  only  by  sbc  components.  It  names 

-  he  generic  parameter  that  this  sbc  parameter  is 
”  d^ned  by  (if  any) 

OENERIC_ID  :  PSDL_ID_PKG.PSDL_ID; 

"  This  attribute  is  used  only  by  sbc  components.  It  is  a 

-  pointer  to  the  generic  parameter  that  this  sbc  parameter 

-  is  defined  by  (if  any) 
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GENERIC.LINK 


:  PARAMETERS  :=  null; 


--  Indicates  whether  the  sbc  component  parameter  is  defined  by 
-  a  generic  parameter  in  the  sbc  component. 
DEFINED_BY_GENERIC_TYPE : BOOLEAN  -FALSE; 


endiecoid; 


”  takes  an  index  position  and  returns  the  parameter  in  the  list 
-  corresponding  to  that  index  position 
function  PARAMETER_AT_INDEX(INbEX :  INTEGER; 

UST  :  PARAMETERS)  return  PARAMETERS; 


--  determines  whether  any  parameters  in  the  list  are  d^ned  by 
-  generics 

function  HAS_GENERIC_PARAMETERS(UST :  PARAMETERS)  return  BOOLEAN; 


—  determines  how  many  parameters  are  in  the  list 

function  PARAMETER_COUNT(LIST :  PARAMETERS)  return  INTEGER; 


end  PARAMETER_UST_PKG; 


package  body  PARAMETER_LIST_PKG  is 


-  corresponding  to  that  index  position 

function  PARAMETER_AT_INDEX(INDEX :  INTEGER; 

LIST  :  PARAMETERS)  return  PARAMETERS  is 

UST.PTR  ;  PARAMETERS  :=  UST; 

begin 

if  UST_PTR  /=  null  then 

for  POSITION  in  1  ..  (INDEX  - 1)  loop 

UST_PTR  :=  UST_PTR.NEXT; 
if  (UST_PTR  =  null  and  POSITION  <  (INDEX  - 1))  ttien 
return  UST_PTR; 
end  if; 

end  loop; 
end  if; 


235 


return  LIST_PTR; 


end  PARAMEIER_ATJNDEX; 

"  determines  whether  any  parameters  in  the  list  are  defined  by 
-  generics 

function  HAS_GENERIC_PARAMETERS(LIST :  PARAMETERS)  retuni  BOOLEAN  is 

HAS.GENERICS: BOOLEAN  -FALSE; 

PTR  :  PARAMETERS  ;=  UST; 

Begin 

while  ((not4iAS_GENERICS)  and  (PTR  /=  null))  loop 

if  PTR.DEF1NED_B  Y_GENERIC_TYPE  then 
HAS.GENERICS  :=  TRUE; 

else 

PTR  ;=  PTRJMEXT; 
end  if; 

end  loop; 

return  HAS_GENERICS; 
end  HAS_GENERIC_PARAMETERS; 


—  determines  how  many  parameters  are  in  the  list 

function  PARAMETER_COUNT(LIST :  PARAMETERS)  return  INTEGER  is 

PTR  :  PARAMETERS  :=  UST; 

COUNT :  INTEGER  -0; 


begin 


while  (PTR  /=  null)  loop 


COUNT  :=  COUI'JT  +  1; 
PTR  ;=  PTRNEXT; 


end  loop; 
return  COUNT; 
end  PARAMETER.COUNT; 
end  PARAMETER_UST_PKG; 
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--  Filename  /  Parameter_Mapping_Pkg.a 
”  Date  / 12  Aug  93 

-  Revised  / 18  Aug  93 

-  Author  I  Scott  Dolgoff 

--  System  /  Solbourne 

”  Compiler  /  Verdix  Ada 

-  Description  /  This  package  provides  routines  that  help  in  the 

/  process  of  determining  whether  a  query  component 
/  parameter  type  correctly  maps  to  a  software  base 
/  component  parameter  type. 


with  PARAMETER_UST_PKG; 
use  PARAMETER^LIST_PKG: 

package  PARAMErER_MAPPING_PKG  is 


--  determines  whether  a  query  and  software  base  component  input 
"  parameter  validly  map  to  each  other  based  on  their  Ada  type. 
function  INPUT  PARAMETER.TYPES.MAP.OKfQCJPARAMETER  -.PARAMETERS; 

SBC_PARAMETER :  PARAMETERS) 
return  BOOLEAN; 

--  determines  whether  a  query  and  software  base  component  output 
—  parameter  validly  map  to  each  other  based  on  their  Ada  type. 
function  OUTPUT_PARAMETER_TYPES _MAP_OK(QC_PARAMErER  :  PARAMETERS; 

SBC_PARAMETER :  PARAMETERS) 
return  BOOLEAN; 


end  PARAMETER_MAPPING_PKG; 


with  TEXTJO,  ADA_RECOGNlZED_TYPES_PKG,  A.STRINGS,  PSDL_ID_PKG; 
use  TEXTJO.  ADA_RECOGNIZED_TYPES_PKG.  A_STRINGS.  PSDL_ID_PKG; 


package  body  PARAMETER_MAPPING_PKG  is 


-  determines  which  array  component,  element  or  index,  to  deal  with 

type  ARRAY_COMP_SWITCH  is  (ELEMENT.  INDEX); 

INVALID_ADA_TYre :  exception; 


-  load  the  String  array  components  into  their  respective 
"  slots  in  the  pointer  node 

function  LOAD_STRING_COMPONENT(SWITCH ;  ARRAY.CXJMP.SWTTCH) 

return  PSDL_ID_HCG.PSDLJD  u 

NEW_NODE :  PSDL_ID_PKG.PSDL_ID; 

begin 

case  SWITCH  is 
when  ELEMENT  => 

NEW_NODE  :=  new  A_STRINGS.STRING_REC(9); 

NEW.NODES  ;=  CHARACTER.TYPE; 

when  INDEX  => 

NEW_NODE  :=  new  A_STRINGS.STRING_RK:(8); 

NEW_NODE.S  :=  POSmVE.TYPE; 

end  case; 

return  NEW_NODE; 
end  IjOAD_STRING_COMPONENT; 


—  checks  a  mapping  on  the  array  component  determined  by  the 

-  switch 

function  CHECK_INPUT_ARRAY_COMPONENTS(QC_PARAMErER  ;  PARAMETERS; 

SBC.PARAMETER :  PARAMETERS; 
SWITCH  :  ARRAY_COMP_SWITCH) 
return  BOOLEAN  is 

SBC_TYPE_NAME,  QC_TYPE_NAME :  PSDLJD_HCG.PSDL_ID; 

MAP_IS_VALID  :  BOOLEAN  :=  FALSE; 

begin 

case  SWITCH  is 

-  special  attention  must  be  given  to  Strings  since  they 

-  do  not  have  their  components  predefined ...  so  we  must 

-  define  the  String  components  in  order  to  compare  them 
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-  with  an  array's  components 

when  ELEMENT  => 

if  (QC_PARAMETER.THE_TYPE.S  /=  STRING.TYre)  then 
QC_TYPE_NAME:= 

A^STRINGS.L0WER_T0_UPPER(QC_PARAMETER.ARRAYJELEMENT_PTR.1HE_TyPE); 

else 

QC_TYra_NAME  :=  LOAD_STRING_COMPONENT(SWrrCH); 
end  if; 

if  (SBC_PARAMETER.THE_TyPE.S  /=  STRINGJTYPE)  then 
SBC_TYPE_NAME  := 

A_STRINGS.LOWER_TO_UPPER(SBC_PARAMETER.ARRAYJELEMENT_PTR.THE_TYPE); 

else 

SBC_TYPE_NAME  :=  LOAD_STRING_COMPONENT(SWrrCH); 
end  if; 

when  INDEX  => 

if  (QC_PARAMETER.THE_TYPE.S  /=  STRING.TYPE)  then 
QC_TYPE_NAME  :=  _ 

A_STRINGS.LOWER_TO_UPPER(QC_PARAMETER.ARRAYJNDEK.PTR.TOE_TYPE); 

else 

QC_TYPE_NAME  :=  LOAD_STRING_COMPONENT(SWrrCH): 
end  if; 

if  (SBC_PARAMETER.THE_TYPE.S  /=  STRING.TYPE)  then 
SBC_TYPE_NAME;= 

A_STRINGS.LOWER_TO_UPPER(SBC_PARAMETER.ARRAYJNDEX_PTR.’raE_TYPE); 

else 

SBC_TYPE_NAME  :=  LOAD_STRING_COMPONENT(SWlTCH); 
end  if; 


end  case; 


if  (PRIVATE.TYPE  =  QC_TYPE_NAME.S)  then 

if  (PRTVATE.TYPE  =  SBC_TYPE_NAME.S)  then  --  regular 

-  or 

-  generic 
—  Private 

MAPJS.VAUD  :=  TRUE; 
end  if; 

elsif  (DISCRETE.TYPE  =  QC_TYPE AME.S)  then 
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if  (((PRIVATE_TYre  =  SBC_TYre_NAME.S)  and  --  generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE))  a  -  Private 

(DISCRETE_TYPE  =  SBC_TyPE_NAME.S))  then 
MAPJS.VAUD  :=  TRUE 
end  if; 

dsif  (INTBGER^TYPE  =  QC.TYra JIAME.S)  then 
if  (((PRIVATE_TYre  =  SBC.TYPE AME.S)  and  --  generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE))or  -  Private 

(DISCRETEJTYPE  =  SBC_TYPE_NAME.S)  or  (1NTEGER_TYPE  = 
SBC_TYrej4AMES))  then 
MAPJS.VAUD  :=  TRUE 
end  if; 

elsif  (RANGE.TYPE  =  QC.TYPE Ji  AME.S)  then 
if  (((PRIVATE_TYPE  =  SBC.TYPEJiAME.S)  and  -  generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE))a-  -  Private 

(DISCRETE.TYPE  =  SBC.TYPE.NAME.S)  or  (INTEGER.TYPE  = 
SBC_TYPE_NAME.S)  or  (RANGE.TYPE  =  SBC.TYPE.NAME.S))  then 
MAP.IS.VAUD  :=  TRUE 
end  if; 

dsif  (NATURAL.TYPE  =  (JC.TYPEJ^AME.S)  then 
if  (((PRrVATE.TYPE  =  SBC.TYPEJfAME.S)  and  --  generic 

(SBC.PARAMETER.DEFINED_BY.GENERIC.TYPE))  or  -•  Private 

(DISCRETE.TYPE  =  SBC.TYPE.NAME.S)  or  (INTEGER.TYPE  = 
SBC_TYre_NAME.S)  or  (RANGE.TYPE  =  SBC.TYPEJMAMES)  or 
(NATURAL.TYPE  =  SBC.TYPEJ^  AMES))  then 
MAPJS.VAUD  :=  TRUE 
end  if; 

elsif  (POSmVE.TYPE  =  (JC.TYPE.NAME.S)  then 
if  (((PRIVATE.TYPE  =  SBC.TYPE.NAME.S)  and  -  generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE))  or  --  Private 

(DISCRETE.TYPE  =  SBC_TYPE_NAME.S)  or  (INTEGER.TYPE  = 
SBC_TYPE_NAME.S)  or  (RANGE.TYPE  =  SBC_TYPE_NAME.S)  or 
(NATURAL.TYPE  =  SBC.TYPE.NAME.S)  or  (TOSriT^.TYPE  = 
SBC_TYPE_NAME.S))  then 
MAPJS.VAUD  :=  TRUE; 
end  if; 

elsif  (ENUMERATION.TYPE  =  (JC_TYPE_NAME.S)  then 
if  (((PRIVATE.TYPE  =  SBC.TYPE.NAME.S)  and  -  generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE))  or  --  Private 

(DISCRETE.TYPE  =  SBC.TYPE.NAME.S)  or  (ENUMERATION.TYPE  = 
SBC_TYPE_NAME.S))  then 
MAPJS.VAUD  :=  TRUE; 
end  if; 

elsif  (CHARACTER.TYPE  =  (iC_TYPE_NAME.S)  then 
if  (((PRIVATE.TYPE  =  SBC_TYPE_NAME.S)  and  ~  generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE))  or  -  Private 
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(lMSCRET^.TyPB  *  SBC.TYPBJJAMES)  of  (ENUMERATK^I.TYFE  » 
SBC_TYPELNAME.S)  or  (CHARACTEILTYPE  = 

SBC.TYP^AMES))  then 
MAPJS.V  ALID  :=  TRUE; 
end  if; 

elsif  (BCX)LEAN_TYPE  =  QC.TYPE J<AME.S)  then 
if  (((PRiVATE_TYre = SBC_TYre_NAME.S)  and  --  generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYre))or  -  Private 

(DISCRETE_TYre  =  SBC_TYrej^AME.S)  or  (ENUMERAnON.TYPE  = 
SBC_TYrej<AME.S)  or  (BOOLEAN.TYPE  =  SBC_TYPE_NAME.S))  then 
MAP_IS_VALID  :=  TRUE; 
end  if; 

elsif  (REC»RD_TYPE  =  QC_TYPE_NAME.S)  then 
if  (((HUVATE.TYPE  =  SBC_TYPE_NAME.S)  and  --  generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYre))  or  (RECORD.TYPE  =  --  Private 
SBC_TYPE_NAME.S))  then 
MAP_IS_VALID  :=  TRUE 
end  if; 

dsif  (ACCESS.TYPE  =  QC_TYre_NAME.S)  then 
if  (((HUVATE.TYPE  =  SBC_TYPE_NAME.S)  and  --  generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE))  or  (ACCESS.TYPE  =  -  Private 
SBC_TYre_NAME.S))  then 
MAPJS^VAUD  :=  TRUE; 
end  if; 

elsif  (ARRAY.TYPE  =  QC_TYPE_NAME.S)  then 
if  (((PRIVATE.TYre  =  SBC_TYPE_NAME.S)  and  -  generic 

(SBC_PARAMErER.DEFINED_BY_GENERIC_TYPE))  or  (ARRAY.TYre  =  --  Private 
SBC_TYPEJ4AME.S))  then 
MAPJS^VALID  :=  TRUE; 
end  if; 

elsif  (STONG.TYPE  =  QC_TYPE_N  AME.S)  then 
if  (((WUVATE_TYPE  =  SBC_TYPE_NAME.S)  and  ~  generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE))  or  (ARRAY.TYPE  =  -  Private 
SBC_TYPE_NAME.S)  or  (STRING.TYPE  =  SBC_TYPE_NAME.S))  then 
MAP.IS.VAUD  :=  TRUE; 
end  if; 

elsif  (DIGITS.TYre  =  QC.TYPE JiAME.S)  then 

if  (((PRIVATE.TYPE  =  SBC.TYPE.NAME.S)  and  ~  generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYre))  or  (DIGITS.TYPE  =  -  Private 
SBC.TYPEJJAME.S))  then 
MAPJS.VAUD  :=  TRUE; 
end  if; 

elsif  (FLOAT.TYra  =  (3C_TYPE_NAME.S)  then 

if  (((PRIVATE.TYre  =  SBC.TYPE.NAME.S)  and  -  generic 

(SBC.PARAMETER.DEF1NED.B  Y.GENERIC.TYre))  ot  (DIGITS.TYPE  =  -  Private 
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SBC_TYPEJIAME.S)  or  (FLOAT.TYPE  =  SBC.TYPEJiAMES))  then 
MAP_IS_VAUD  :=  TTIUE 
end  if; 

d»if  (DELTA^TYra  =  QC_TYPE_N  AMES)  then 
if  (((PRIVATE_TYre  =  SBC_TYPEJ<AME.S)  end  --  generic 

(SBC.PARAMETER-DEFINEDJ Y.OENERlCjnrPE))  or  (DELTA^TYPE  »  --  Private 
SBC_TYre_NAME.S))  then 
MAPJS.VAUD  :=  TRUE 
end  if; 

dfif  (FKED.TYre  =  QC_TYPE_NAMES)  then 
if  (((PRIVATE_TYre  =  SBC.TYPE JfAME.S)  and  -  generic 

(SBC_PARAMETER.DEF1NED_BY_GENERIC_TYPE))  or  (ICLTA^TYPE  =  --  Private 

SBC_TYPE_NAMES)  or  (FKED.TYPE  =  SBC  TYPEJ4AMES))  then 
MAPJS.VAUD  :=  TRUE 

Old  if; 


else  ~  unknown 

-type 
-  passed 

raise  INVALID_ADA_TYPE 
end  if; 

return  MAPJS.VAUD; 


exception 


when  INVALID, ADA_TYPE  => 

PUT_LINE("***  ERROR:  INVALID  ADA  TYPE  DISCOVERED  FOR 
PUT.UNEC  ••  &  QC_PARAMETERJD.S  QC_TYPE_NAME.S): 

PUT_LJNE("A  Type  MUST  BE  DEFINED  AS  AN  ADA  TYPE.  IT  CAN  REFERENCE"); 
PUTJJNE'TNFORMATION  IN  ITS  GENERIC  PARAMETERS,  BUT  CANNOT"); 
PUT_LINE("REFERENCE  DEFINITION  INFORMATION  OUTSIDE  ITS  OWN"); 
PUT_LINE("SPECinCATION.  A  Generic  PARAMETER  MUST  BE  FULLY "); 
PUT_LINE("DEFINED  AS  AN  ADA  TYPE.  IT  CANT  EVEN  REFERENCE  OTHER  "); 
PUT_LINE("DEFINrnONS  WITOIN  ITS  GENERICS."); 

NEW.UNE; 
raise ; 


when  others  => 

PUT_LINE("***  UNKNOWN  ERROR:  OCCURED  IN  procedure "); 
PUT_LINE("  CHECK_INPUT_ARRAY_COMPONENTS. "); 

NEW_LINE; 
raise ; 

end  CHECK  JNPUT_ARRAY_COMPONENTS; 
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-  determines  whether  a  query  and  software  base  component  input 
~  parameter  validly  map  to  each  other  based  on  their  Ada  type. 
ftinctioii  INPUT_PARAMETER_TYreS_MAP_OK(QC_PARAMETER  :PARAMEreRS; 

SBC_PARAMETER :  PARAMEIERS) 
retm  BOCX£AN  ic 

SBC  TYPE AME.  QC.TYPEJIAME :  PSDL JD_PKG.PSDLJD; 

MAPJS  VALID  :B(X)LEAN  ;=  FALSE; 

ELEMENT.SWITCH  :  ARRAY_COMP_SWrrcH  :=  ELEMENT; 

lNDEX_SWrrCH  :  ARRAY.COMP.SWTTCH  ;=  INDEX; 

begin 

QC.TYPEJNAME  ;=  A_STRINGS.LOWEIL.TO_UPPER(QC_PARAMETER.THE_TYPE): 

SBC_TYPE_NAME  ;=  A_STRINGS.LOWER.TO_UPPER(SBC_PARAMETER.THE_TYPE); 

if  (PRIV  ATE_TYPE  =  QC_TYPE_NAME.S)  then 
if  (PRIVATE.TYPE  =  SBC_TYPE_NAME.S)  then  --  regular 

-or 

-  generic 

-  Private 

MAPJS_VALID  ;=  TRUE; 
end  if; 

eisif  (DISCRETE_TYPE  *  QC_TYPE_NAME.S)  then 
if  (((PRIVATE.TYPE  =  SBC_TYPE_N  AME.S)  and  -  generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE))or  --  Private 

(DISCRETE.TYPE  *  SBC_TYPE_NAME.S))  then 
MAP_IS_VA1JD  :=  TRUE; 
end  if; 

elsif  (INTEGER_TYPE  =  QC_TYPE_NAME.S)  then 
if  (((PRIVATE.TYPE  =  SBC_TYPE_NAME.S)  and  -  generic 

(SBC_PARAMErER.DEFINED_BY_GENERIC_TYPE))  or  --  Private 

(DISCRETE.TYPE  =  SBC_TYPE_N  AME.S)  or  (INTEGER_TYPE  = 
SBC_TYPE_NAME.S))  then 
MAPJS.VAUD  :=  TRUE; 
end  if; 

elsif  (RANGE.TYPE  =  QC.TYPE J^AME.S)  then 
if  (((PRIVATE.TYPE  =  SBC_TYPE.NAME.S)  and  ~  generic 

(SBC.PARAMETER.DEFINED_BY.GENERIC.TYPE))  or  --  Private 

(DISCRETE.TYPE  =  SBC.TYPEJ^AME.S)  or  (INTBGER.TYPE  = 
SBC_TYPEJ^AME.S)  or  (RANGE.TYPE  =  SBC_TYre_NAME.S))  then 
MAP.IS.VAUD  ;=  TRUE; 
end  if; 

elsif  (NATURAL.TYPE  =  (3C_TYPE_NAME.S)  then 
if  (((PRIVATE.TYPE  =  SBC_TYPE_NAME.S)  and  --  generic 
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(SBC_PARAMEreR.DEFINED_3Y_GENERIC_TYre))or  -Private 

(DISCRErE_TYPE  =  SBC_TyPEJiAME.S)  or  (INTEGER.TYPE  = 

SBC.TVPE J^AME.S)  or  (NATURAL.TVre  =  SBC.TYPEJiAME-S))  then 
MAPJS.VAUD  :=  TOUE; 
end  if; 

elsif  (POSaTIVE_TYre  =  QC_TYPE_NAMES)  then 
if  (((PRIVATE.TYPE  =  SBC.TYPEJf AME.S)  and  -  generic 

(S»C_PARAMETER.DEFINED_BY_GENERIC_TYPE))or  -Private 

(DISCRETE.TYPE  =  SBC_TYPE_NAME.S)  or  (INTEGER_TYPE  = 

SBC_TYPE-NAMES)  or  (NATURAL_TYre  =  SBC.TYKEJfAMES)  or 
(POSmVE_TYPE  =  SBC_TYPE_NAME.S))  then 
MAPJS.VAliD  :=  TRUE; 
end  if; 

elsif  (ENUMERATION.TYPE  =  QC_TYPE_NAME.S)  then 
if  (((PRIVATE_TYPE  =  SBC_TYPE_NAME.S)  and  --  generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYre))Qr  --  Private 

(DISCRETE.TYPE  =  SBC_TYPE_NAME.S)  or  (ENUMERATION.TYPE  = 
SBC_TYPEJiAME.S))  then 
MAP_IS_VALID  :=  TRUE; 
end  if; 

elsif  (CHARACTER_TYPE  =  QC_TYPE_NAME.S)  then 
if  (((PRIVATE.TYPE  =  SBC_TYPE_NAME.S)  and  --  generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYre))  or  -  Private 

(DISCRETE.TYPE  =  SBC_TyPE_NAME.S)  or  (ENUMERATION.TYPE  = 
SBC_TYPE_NAME.S)  or  (CHARACTER_TYPE  = 

SBC.TYPEJfAMES))  then 
MAP_IS_VAIID  :=  TRUE; 
end  if  ; 

elsif  (BOOLEAN.TYPE  =  (JC.TYPE AMES)  then 
if  (((PRIVATE.TYPE  =  SBC_TYPE_NAME.S)  and  -  generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE))  or  -  Private 

(DISCRETE.TYPE  =  SBC_TYPE_NAME.S)  or  (ENUMERATION.TYre  = 
SBC_TYPE_NAME.S)  or<BOOLEAN_TYre  =  SBC_TYPE_NAME.S))  then 
MAPJS.VALID  :=  TRUE; 
end  if; 

elsif  (RECORD.TYPE  =  QC.TYPE.NAME.S)  then 
if  (((PRIVATE_TYPE  =  SBC_TYPE_NAME.S)  and  -  generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE))  or  (RECORD.TYPE  =  -  Private 
SBC_TYPE_NAME.S))  then 
MAP.IS.VAUD  :=  TRUE; 
end  if; 

elsif  ( ACCESS.TYPE  =  (JC.TYPE.NAME.S)  then 
if  (((PRIVATE.TYPE  =  SBC.TYPE.NAME.S)  and  --  generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE))  or  (ACCESS.TYPE  =  --  Private 
SBC_TYPEJsrAME.S))  then 
MAPJS.VAUD  :=  TRUE; 
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end  if; 


elsif  ( ARRAY.TVre  =  QC_TYre_NAME.S)  then 
if  (((PRIVATE_TYre  =  SBC_TYre_NAME.S)  and  --  generic 

(SBC_PARAMEI1ER.DEEINED_3Y_GENERIC_TYPE))  or  -  Private 

(((STRING.TYre  =  SBC_TYPE_NAME.S)  of  (ARRAY.TYPE  = 

SBC.TYPEJ^ AME.S))  and  then 

(CHECKjmn’_AWUY_C»MPONENTS(QC_PARAMETER.  SBC_PARAMErER. 
ELEMENT_SWITCH)  and 

CHECKJNPirr_ARRAY_COMPONENTS(QC_PARAMErER.  S8C_PARAMEIBR. 
INDEJLSWITCH))))  then 

MAPJS.VAUD  :=  TRUE; 
end  if; 

eisif  (STRINGJTYPE  =  QC_TYPE_N  AME.S)  then 
if  (((HUVATE_TYPE  =  SBC_TYPE_NAME.S)  and  -  generic 

(SBC_PARAMETER.DEPINED_B  Y_GENERIC_TYPE))  or  (STRING.TYPE  =  --  Private 
SBC_TYPE_NAME.S)  or  ((ARRAY.TYPE  = 

SBC_TYre_NAMES)  and  then 

(CHECK JNPUT_ARRAY_COMPONENTS(QC_PARAMETER.  SBC.PARAMETER, 
ELEMENT.SWTTCH))  and  then 

(CHECK JNPUT_ARRAY_COMPONENTS((3C_PARAMETER,  SBC.PARAMETER. 
lNDEX_SWrrCH)))  or  (STRING.TYre  =  SBC.TYrej^AME.S))  then 
MAPJS.VAUD  :=  TRUE; 
end  if; 

elsif  (DIGITS.TYPE  =  (JC.TYPE.NAME.S)  then 
if  (((PRIVATE.TYPE  =  SBC.TYPEJNAME.S)  and  -  generic 

(SBC_PARAMETER.DEFINED_BY.GENERIC.TYPE))  or  (DIGITS.TYPE  =  -  Private 
SBC_TYre_NAME,S))  then 
MAPJS.VAUD  ;=  TRUE; 
end  if; 

elsif  (FLOAT.TYPE  =  QC.TYPE.NAME.S)  then 

if  (((PRIVATE.TYPE  =  SBC.TYPE.NAME.S)  and  -  generic 

(SBC_PARAMETER.DEFINED_B  Y.GENERIC.TYre))  or  (DIGITS.TYPE  =  --  Private 
SBC_TYPE_NAME.S)  or  (FLOAT.TYPE  =  SBC.TYPE.NAME.S))  then 
MAPJS.VAUD  :=  TRUE; 
end  if; 

elsif  (DELTA.TYPE  =  (QC.TYPE.NAME.S)  then 

if  (((PRIVATE.TYPE  =  SBC.TYPE.NAME.S)  and  -  generic 

(SBC_PARAMETER.DEFINED_B  Y.GENERIC.TYre))  or  (DELTA_TYre  =  -  Private 
SBC_TYPE_NAME.S))  then 
MAPJS.VAUD  :=  TRUE; 
end  if; 

elsif  (FIXED.TYPE  =  QC.TYPE_NAME.S)  then 

if  (((PRIVATE.TYPE  =  SBC.TYPE.NAME.S)  and  -  generic 

(SBC_PARAMETER.DEFINEDJY_C  -JC.TYPE))  or  (DELTA.TYPE  =  -Private 

SBC_TYre_NAME.S)  or  (FIXED.TYPE  =  SBC_TYre_NAME.S))  then 
MAPJS.VAUD  :=  TRUE; 
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Old  if; 


else  —  unknown 

-type 
"  passed 

raise  INVAUD.ADA.TYPE; 
end  if; 


return  MAPJS.VALED; 


excqidon 


when  INVALID. ADA^TYPE  => 

PUTJJNEC'***  ERROR:  INVALID  ADA  TYK  DISCOVERED  FOR  -"); 

PUT_UNE("  "&QC_PARAMETERJD.S&":“&QC_TYPEJ4AME.S); 
PUT_LINE("A  Type  MUST  BE  DEFINED  AS  AN  ADA  TYK.  IT  CAN  REFERENCE"); 
PUT_LINECTNFORMATION  IN  ITS  GENERIC  PARAMETERS,  BUT  CANNOT*); 
PUT_UNE("REFERENCE  DEFINITION  INFORMATION  OUTSIDE  ITS  OWN"); 
PUT_LINE("SraCinCA'nON.  A  (jeneric  PARAMETER  MUST  BE  FULLY  "); 
PUT_LINE("DEFINED  AS  AN  ADA  TYPE.  IT  CANT  EVEN  REFERENCE  OTHER "); 
PUT.UNEC'DEFINrnONS  WITHIN  ITS  GENERICS.**); 

NEW.UNE; 
raise ; 


when  others  => 

PUT_UNE("***  UNKNOWN  ERROR:  OCCURED  IN  procedure  **); 
PUT_LINE("  INPUT_PARAMETER_'rYPES_MAP_OK.  *’); 

NEW.LINE; 
raise  ; 

end  INPUT_PARAMETER_’rYPES_MAP_OK; 


"  checks  a  mapping  on  the  array  component  determined  by  the 
-  switch 

function  CHECK_OUTPUT_ARRAY_COMPONENTS(QC_PARAMETER  :  PARAMETERS; 

SBC_PARAMErER ;  PARAMETERS; 
SWITCH  :  ARRAY_COMP_SWITCH) 
return  BOOLEAN  is 

SBC_TYPE_NAME,  QC_TYPE_NAME :  PSDLJD_PKG.PSDL_ID; 

MAPJS.VAUD  :  BOOLEAN  :=  FALSE; 

INVAUD.QC  :  BOOLEAN  :=  FALSE; 

begin 

case  SWITCH  is 
when  ELEMENT  => 

if  (QC_PARAMETER.THE_TYPE.S  /=  STRING.TYPE)  then 
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QC_TYPBJ<AME;= 

A^STTaNGS.L0WER^T0_UPI®«QC_PARAMETERj«iUYJEia4ENTJTTLTOE_TYre 

else 

QC_TYP^_NAME  :=  LOAD_STRING_CX)MPONENT(SWlTCH); 
end  if. 

if  (SBC_PARAMETER.THE_TYPE.S  /=  STR1NG_TYPE)  then 


SBC_TYre_NAME:= 

A_STRINGS.IX)WER_TO_UPPER(SBC_PARAMETERjGaUY.^l£MEW_m.T«E_TYPE); 

else 

SBC_TYre_NAME  ;=  LOAD_STlUNG_a)MPONENT(SWrrCH); 
end  if; 


when  INDEX  s> 

if  (QC_PARAMErER.THE_TYPE.S  /=  STRING.TYPE)  then 
QC_TYPE_NAME  := 

A_STRINGS.LOWER_TO_UPPER(QC_PARAMETER.ARRAYJNDEX_PrR.TOE_TYPE): 

else 

QC.TYPE.NAME  :=  ljOAD_STRING_COMPONENT(SWTrcH); 
end  if; 

if  (SBC_PARAMETER.THE_TYPE.S  /=  STRINGJTYra)  then 
SBC_TYPE_NAME  .= 

A_STRINGS.ljOWER_TO_UPPER(SBC_PARAMETER.ARRAYJNDEX.m.'nm.TYPE); 

else 

SBC_TYPE_NAME  :=  LGAD_STRmG_COMPONENT(SWrrCH); 
end  if; 


end  case; 


if  ((PRIVATE.TYPE = SBC_TYPE_NAME.S)  and  -  generic  Private 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE))  then 

-  it  can  map  to  any  query  component  parameter 

-  as  long  as  that  paramater  is  a  valid  Ada  type 

if  RECOGNlZED_ADA_TYPE(QC_TYPE_NAME)  then 

MAP_IS_VAUD  :=  TRUE; 


INVALID_QC;=TRUE; 
raise  INVALID_ADA_TYre; 
end  if; 


eisif  (PRTVATE.TYPE  =  SBC_TYPE_NAME.S)  then  --  regular  Private 

if  (PRIVATE.TYPE  =  QC.TYPE J^  AME.S)  then 
MAP_IS_VAUD  ;=  TRUE; 
end  if; 
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eisif  ((DiscRETE_TYPE  =  SBC_TYPE_NAME.S)  and  ~  generic  Discrete 
(SBC_PARAMETER.DEFINED_BY_GENERIC_TYre))  then 

if  ((DISCRETE.TYPE  =  QC.TYre AMES)  or  (INTEGEILTYre  =  QC.TYre JIAMES)  or 
(RANGE_TYre  =  QC_TYPE_NAMES)  «h  (NATURAL.TYPE  =  QC_TYre_NAME.S)  or 
(POSrnVE_TYPE  =  QC_TYra_NAME.S)  or  (ENUMERATlON.TYre  = 

QC_TYre_NAME.S)  or  (CHARACTER_TYre  =  QC_TYPE_NAME.S)  or  (BOOLEAN.TYPE  = 
QC_TYPE_NAME.S))  then 
MAP_IS_VALID  :=  TRUE; 
end  if; 

ebif  (DISCRETE.TYPE  =  SBC_TYPE_N  AME.S)  then 
if  (DISCRETE.TYPE  =  (JC.TYPE.N  AME.S)  then 
MAP_IS_VALID  :=  TRUE; 
end  if; 

dsif  (INTEGER_TYPE  =  SBC.TYPE.NAME.S)  then 
if  ((DISCRETE.TYPE  =  (JC.TYPE.NAME-S)  or  (INTEGER.TYPE  = 

QC  TYPE.NAME.S))  then 
MAP.IS.VAUD  :=  TRUE; 
end  if; 

eisif  ((RANGE.TYPE  =  SBC.TYPE.NAME.S)  and  -  generic  Range 
(SBC_PARAMETER.DEFINED.BY.GENERIC.TYPE))  then 

if  ((INTEGER.TYPE  =  (JC.TYPE.NAME.S)  or  (NATURAL.TYPE  =  QC.TYPE.NAME.S)  or 
(POSmVE.TYPE  =  QC.TYPE.NAME.S)  or  (RANGE.TYPE  =  (JC.TYPE.NAME.S))  then 
MAP.IS.VAUD  :=  TRUE; 
end  if; 

eisif  (RANGE.TYPE  =  SBC.TYPE.NAME.S)  then 
if  (RANGE.TYPE  =  (JC  TYPE  J^AME.S)  then 
MAPJS.VAUD  ;=  TRUE; 
end  if; 

eisif  (NATURAL.TYPE  =  SBC.TYPE.N/  ME.S)  then 

if  ((DISCRETE.TYPE  =  QC.TYPE.NAME.S)  or  (INTBGER.TYPE  =  QC.TYPE.NAME.S)  or 
(NATURAL.TYPE  =  QC.TYPE.NAME.S))  then 
MAPJS.VAUD  :=  TRUE; 
end  if; 

eisif  (POSmVE.TYPE  =  SBC.TYPE.NAME.S)  then 

if  ((DISCRETE.TYPE  =  QC.TYPE.NAME.S)  or  (INTEGER.TYPE  =  QC.TYPE.NAME  S)  or 
(NATURAL.TYPE  =  QC.TYPE.NAME.S)  or  (POSmVE.TYPE  =  (JC.TYPE.NAME.S))  then 
MAP.IS.VAUD  :=  TRUE; 
end  if; 

eisif  (ENUMERATION.TYPE  =  SBC.TYPE.NAME.S)  then 
if  ((DISCRETE.TYPE  =  QC.TYPE.NAME.S)  or  (ENUMERATION.TYPE  = 
QC.TYPE.NAME.S))  then 
MAP.IS.VAUD  ;=  TRUE; 
end  if; 

eisif  (CHARACTER.TYPE  =  SBC.TYPE.NAME.S)  then 
if  ((DISCRETE.TYPE  =  QC.TYPE.NAME.S)  or  (ENUMERATION.TYPE  = 
(3C.TYPE.NAME.S)  or  (CHARACTER.TYPE  =  QC.TYPE  NAME.S))  then 
MAPJS.VAUD  :=  TRUE; 
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out  if; 


elnf  (BOOLEANJTYPE  =  SBC_Tyre_NAMES)  then 
if  ((DlSCRETE_TYre  =  QC_TYre_NAME.S)  or  (ENUMERATION.TYPE  = 
QC_TYrejlAME.S)  or  (BOOLEAN.TYre  =  QC_TYHB_NAME.S))  thm 
MAP_IS_VAUD  :=  TRUE; 
end  if; 

elsif  (RECX)RD_TYPE  =  SBC_TYPE_NAME.S)  then 
if  (RECORD.TYPE  =  QC_TYPE_NAME.S)  then 
MAP_IS_VALID  :=  TRUE; 
end  if; 

elsif  (ACCESS.TYPE  =  SBC_TYFE_NAME.S)  then 
if  (ACCESS.TYPE  =  QC_TyPE_NAME.S)  then 
MAP_IS_VALID  :=  TRUE; 
end  if; 

elsif  ((ARRAY.TYPE  =  SBC_TYPE_NAME.S)  and  --  generic  Array 
(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE))  then 

if  ((ARRAY_TYPE  =  CJC.TYPE.NAME.S)  or  (STRING_TYPE  =  QC_TYre_NAME.S))  then 
MAPJS.VALID  :=  TRUE; 
end  if; 

elsif  (ARRAY.TYPE  =  SBC_TYPE_NAME.S)  dten 
“  could  miss  a  potential  match  between  an  sbc  array  element  of 
--  type  array  which  maps  to  a  qc  array  element  of  type  string, 

-  but  this  implementation  does  not  look  at  any  level  lower 

-  than  first  level  array  components 

if  (ARRAY.TYPE  =  QC_TYPE_NAME.S)  then 
MAPJS.VALID  :=  TRUE; 
end  if; 

elsif  (STRING_TYPE  =  SBC_TYPE_N  AMES)  then 

if  ((ARRAY.TYPE  =  QC.TYPE.NAME.S)  or  (STRING.TYPE  =  QC.TYPE.NAME.S))  then 
MAPJS.VAUD  :=  TRUE; 
end  if; 


elsif  ((DIGITS.TYPE  =  SBC.TYPE.NAME.S)  and  ~  generic  Digits 

(SBC.PARAMETER.DEFINED.BY.GENERIC.TYPE))  then 

if  ((DIGITS.TYPE  =  (3C.TYPE.NAME.S)  or  (FLOAT.TYPE  =  (JC.TYPE  AME.S))  then 
MAPJS.VAUD  :=  TRUE; 
end  if; 

elsif  (DIGITS.TYPE  =  SBC.TYPE.NAME.S)  then 
if  (DIGITS.TYPE  =  QC.TYPE.NAME.S)  then 
MAPJS.VAUD  :=  TRUE; 
end  if; 

elsif  (FLOAT.TYPE  =  SBC.TYPE.NAME.S)  then 

if  ((DIGITS.TYPE  =  QC.TYPE.NAME.S)  or  (FLOAT.TYPE  =  QC_TYPEJ4AME.S))  then 
MAPJS.VAUD  :=  TRUE; 
end  if; 
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elsif  ((DELTA^TYPE  =  SBC_TyPE_NAME.S)  and  --  generic  Delta 
(SBC_PARAMETER.DEFINED_BY_GENERIC_TVPE))  then 

if  ((DELTA.TYPE  =  QC_TYPE_NAME.S)  or  (HXED.TYPE  =  QC_TYra_NAME.S))  then 
MAPJS.VAUD  :=  TRUE; 
end  if; 

elsif  (DELTA_TYPE  =  SBC_TYPE_NAME.S)  then 
if  (DELTA.TYPE  =  QC_TYPE_NAME.S)  then 
MAP_IS_VALID  .=  TRUE; 
end  if; 

elsif  (FDCED.TYPE  =  SBC_TYPE_NAME.S)  then 

if  ((DELTA^TYPE  =  QC_TYPE_NAME.S)  or  (FIXED.TYPE  =  QC.TYPEJ^AME.S))  then 
MAPJS.VAUD  :=  TRUE; 
end  if; 


else  -  unknown  type  passed 

raise  INVALID_ADA_TYPE; 

end  if; 


return  MAP_IS_VALID; 


exception 


when  INVALID_ADA_TYPE  => 

PUT_LINE("**‘  ERROR:  INVALID  ADA  TYPE  DISCOVERED  FOR  -"); 
if  not  INVALID_QC  then 

PUT_LINE( '•  ■'  &  SBC_PARAMETERJD.S  &  ” ;  ”  &  SBC_TYPE_NAME.S); 

else 

PUT_LINE("  "  &  QC_PARAMETER  JD.S  &  " ;  ”  &  QC.TYFEJNAME.S); 

end  if; 

PUT_IJNE("A  Type  MUST  BE  DEFINED  AS  AN  ADA  TYPE.  IT  CAN  REFERENCE"); 
PUT.UNEC'INFORMATION  IN  ITS  GENERIC  PARAMETERS,  BUT  CANNOT  ); 
PUT_LINE("REFERENCE  DEFINITION  INFORMATION  OUTSIDE  ITS  OWN”); 
PUT_LINE("SPECIFICATION.  A  Genetic  PARAMETER  MUSTBE  FULLY  "); 
PUT_LINE("DEFINED  AS  AN  ADA  TYPE.  IT  CANT  EVEN  REFERENCE  OTHER  "); 
PUT_UNE("DEFINrnONS  WITHIN  ITS  GENERICS."); 

NEW.LINE; 
raise ; 


when  others  => 

PUT.UNEC'***  UNKNOWN  EPJIOR:  OCCURED  IN  procedure  "); 
PUT_LINE("  CHECK_OUTPUT_ARRAY_COMPONENTS. "); 

NEWJJNE; 
raise ; 

end  CHECK_OUTPUT_ARRAY_COMPONENTS; 


-  determines  whether  a  query  and  software  base  component  output 

—  parameter  validly  map  to  each  other  based  on  their  Ada  type. 
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"  Note  that  the  direction  of  comparison  is  Afferent  here  than 


-  with  INPUT  PARAMETER  JYPESJiAP JDK. 

functkOTOinTHn'_PARAMETElL.TYPESJMAP_OK(QCJ>AJlAMETER  :  PARAMETERS; 

SBC.PARAMETER :  PARAMEIERS) 


return  BCXDLEAN  is 

SBC_TYPE_NAME,  QC_TYPE_NAME :  PSDLJD_PKG.PSDLJD; 


MAP_IS_VALID 
INVAUD.QC 
ELEMENT.SWrrCH 
INDEX  SWITCH 


:  BOOLEAN  :=  FALSE; 

:  BOOLEAN  -FALSE; 

:  ARRAY_COMP_SWrTCH  :=  ELEMENT; 
:  ARRAY.COMP.SWITCH  ;=  INDEX; 


begin 


QC_TYPE_NAME  :=  A_STRINGS.LOWER_TO_UPPER(QC_PARAMETER.THE_TYPE); 
SBC_TYra_NAME  :=  A_STRINGS.LOWER_TO_UPPER(SBC_PARAMETER.THE_TYPE); 


if  ((PRIVATE.TYPE  =  SBC_TYPE_NAME.S)  and  --  generic  Private 
(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE))  then 
"  it  can  map  to  any  query  component  parameter 
-  as  long  as  that  paramater  is  a  valid  Ada  type 
if  RECOGNIZED. AD  A_TYPE(QC_TYPE_NAME)  then 
MAPJS.VAUD  ;=  TRUE; 


else 

INVALID_QC:=TRUE; 
raise  INVALID. ADA.TYPE; 
end  if; 

eisif  (PRTVATE.TYPE  =  SBC.TYPE.NAME.S)  then  -  regular  Private 
if  (PRTVATE.TYPE  =  QC.TYPE.NAME.S)  then 
MAP.IS.VAUD  :=  TRUE; 
end  if; 

eisif  ((DiscRETE.TYPE  =  SBC.TYPE.NAME.S)  and  --  generic  Discrete 
(SBC.PARAMETER.DEFINED.BY.GENERIC.TYPE))then 

if  ((DISCRETE.TYPE  =  (QC.TYPE.NAME.S)  or  (INTEGER.TYPE  =  QC.TYPE.NAME.S)  or 
(RANGE.TYPE  =  QC.TYPE.NAME.S)  or  (NATURAL.TYPE  =  QC.TYPE.NAME.S)  or 
(POSmVE.TYPE  =  QC.TYPE.NAME.S)  or  (ENUMERATION.TYPE  = 

QC.TYPE.NAME.S)  or  (CHARACTER.TYPE  =  QC.TYPE.NAME.S)  or  (BCXJLEAN.TYPE  = 
QC.TYPEJ^AME.S))  then 
MAP.IS.VAUD  :=  TRUE; 
end  if; 

eisif  (DISCRETE.TYPE  =  SBC.TYPE.NAME.S)  then 
if  (DISCRETE.TYPE  =  QC.TYPE.NAME.S)  then 
MAP.IS.VAUD  :=  TRUE; 
end  if; 

eisif  (INTEGER.TYPE  =  SBC.TYPE.NAME.S)  then 
if  ((DISCRETE.TYPE  =  QC.TYPE.NAME.S)  or  (INTEGER.TYPE  = 

(JC.TYPE.NAME.S))  then 
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MAPJS.VAUD  :=  TRUE; 
end  if; 

elsif  ((RANGE.TYPE  =  SBC_TYPE_NAME.S)  and  -  generic  Range 
(SBC_PARAMETER.DEFINED_BY_GENERIC_TYre))  then 

if  ((INTEGER_TYPE  =  QC_TyPE_NAME.S)  or  (NATURAL.TYPE  =  QC_TYPE_NAMES)  or 
(POSrnVE_Tyra  =  QC.TYPE J4AME.S)  or  (RANGE.TYPE  =  QC_Tyre_NAME.S))  then 
MAP_IS_VAUD  :=  TRUE; 
mdif; 

elsif  (RANGE.TYPE  =  SBC_TYPE_NAME.S)  then 
if  (RANGE.TYPE  =  QC_TYPE_NAME.S)  then 
MAP.IS.VAUD  :=  TRUE; 
end  if; 

elsif  (NATURAL_TYPE  =  SBC.TYPE.NAME.S)  then 

if  ((DISCRETE.TYPE  =  QC.TYPE Jf  AME.S)  or  (INTEGER.TyPE  =  QC_TYPE_NAME.S)  or 
(NATURAL.TYPE  =  QC_TYPE_NAME.S))  then 
MAPJS.VAUD  :=  TRUE; 
end  if; 

elsif  (POSmVE.TYPE  =  SBC_TYPE_NAME.S)  then 

if  ((DISCRETE.TYPE  =  QC_TYPE_N  AME.S)  or  (INTEGER.TYPE  =  QC_TYPE_NAME.S)  or 
(NATURAL.TYPE  =  QC_TYPE_NAME.S)  or  (POSmVE_TYPE  =  QC_TYPE_NAME.S))  then 
MAP_IS_VAUD  :=  TRUE; 
end  if; 

elsif  (ENUMERATION.TYPE  =  SBC_TYPE_NAME.S)  then 
if  ((DISCRETE.TYPE  =  QC_TYPE_NAME.S)  or  (ENUMERATION_TYPE  = 
QC_TYPE_NAME.S))  then 
MAP_lS_VALrD  :=  TRUE; 
end  if; 

elsif  (CHARACTER.TYPE  =  SBC_TYPE_NAME.S)  tfien 
if  ((D!SCRETE_TYPE  =  QC_TYPE_NAME.S)  or  (ENUMERATION.TYPE  = 
QC_TYPE_NAME.S)  or  (CH  ARACTER.TYPE  =  QC_TYPE_NAME.S))  then 
MAP_IS_VA1ID  .=  TRUE; 
end  if; 

elsif  (BOOLEAN.TYPE  =  SBC_TVPE_N  AME.S)  then 
if  ((DISCRETE.TYPE  =  QC_TYPE_NAME.S)  or  (ENUMERATION.TYPE  = 
QC.TYPE.NAME.S)  or  (BOOLEAN.TYPE  =  (JC.TYPE.NAME.S))  then 
MAPJS.VAUD  :=  TRUE; 
end  if; 

elsif  (RECORD.TYPE  =  SBC.TYPE.NAME.S)  then 
if  (RECORD.TYPE  =  QC.TYPE.NAME.S)  then 
MAPJS.VAUD  ;=  TRUE; 
end  if; 

elsif  (ACCESS.TYPE  =  SBC.TYPE.NAME.S)  then 
if  (ACCESS.TYPE  =  QC.TYPE.NAME.S)  then 
MAPJS.VAUD  :=  TRUE; 
end  if; 

elsif  {(ARRAY.TYPE  =  SBC.TYPE.NAME.S)  and  -  generic  Array 
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(SBC  PARAMEreR.DEFINED^Y_GENERIC_TYPE))then 

if  ((ARRAY.TYPE  =  (3C_TYPE_>IAME.S)  or  (STRING.TYPE  =  (JC.TYPEJ^AMES))  then  _ 

MAPJS.VAUD  ;=  CHECKJ3UTPUT_ARRAY_COMPONENTS(QC_PARAMErER. 

SBC.PARAMETER, 

ELEMENT.SWnCH); 

if  MAP_is_VALiD  then  -  array  element  mapped 

-  correctly 

MAP  IS  VAim  :=  CHECK_OUTPUT_ARRAY_COMPONENTS((3C_PARAMErER. 
SBCJ>ARAMErER, 

INDEX_SWrrCH); 
end  if; 
end  if; 


eUif  ( ARRAY.TYPE  =  SBC_TYPE_NAME.S)  then 
if  {(ARRAYJTYPE  =  (JC.TYPE.NAMES)  or  (STRING.TYPE  =  QC_TYPE_NAME.S))  then 

MAP_IS_VA1JD  ;=  CHECKjOUTPUT_ARRAY_COMPON©4TS((3C_PARAMErER, 

SBC_PARAMErER. 

ELEMENT.SWrrCH); 

if  MAP_is_VAUD  then  --  array  element  mapped 

-  correctly 

MAP  TS  VAi  m  :=  CHECK_OUTPUT_ARRAY_COMPONENTS((3C_PARAMErER, 
SBC_PARAMErER. 

INDEX_SWITCH); 
end  if; 
end  if; 


elsif  (STRING.TYPE  =  SBC_TYPE_NAME.S)  then 

if(((ARRAY_TYPE*QC_TYPE_NAME.S)andthen  _ 

(CHECK  OUTPUT  ARRAY  COMPONENTS((3C_PARAMETER,  SBC.PARAMETER. 
ELEMENT.SWTTCH))  and  then  (CHECK_OUTPUT_ARRAY_COMPONENTS(QC_PARAMErER. 
SBC  PARAMETER,  INDEX.SWITCH)))  or  (STRING.TYPE  =  (3C_TYPE_NAME.S))  then 
MAPJS.VAUD  :=  TRUE 
end  if; 


cbif  ((DIGITS.TYPE  =  SBC.TYPE.NAME.S)  and  -  generic  Digits 
(SBC.PARAMETER-DEFINED.BY.GENERIC.TYPE))  then 

if  ((DIGITS.TYPE  =  QC.TYPE.NAME.S)  or  (FLOAT.TYPE  =  QC.TYPE_NAME.S))  then 
MAPJS.VAUD  :=  TRUE; 
end  if; 

elsif  (DIGITS.TYPE  =  SBC.TYPE.NAME.S)  then 
if  (DICrre.TYPE  =  QC.TYPE.NAMES)  then 
MAPJS.VAUD  :=  TRUE; 
end  if; 


elsif  (FLOAT.TYPE  =  SBC.TYPE.NAME.S)  then 

if  ((DIGITS.TYPE  =  QC.TYPE  JIAME.S)  or  (FLOAT.TYPE  =  (JC.TYPE.NAME.S))  then 
MAPJS.VAUD  :=  TRUE; 
end  if; 


elsif  ((DELTA.TYPE  =  SBC.TYPE.NAME.S)  and  --  generic  Delta 
(SBC.PARAMETER.DEFINED_BY.GENERIC.TYPE))  then 

if  ((DELTA.TYPE  =  QC.TYPE.NAME.S)  or  (FIXED.TYPE  =  QJC.TYPEJIAME.S))  tfien 
MAPJS.VAUD  ;=  TRUE, 
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end  if; 


dsif  (DELTA^TYPE  =  SBC.TYPE AME.S)  then 
if  (DELTA_TYre  =  QC.TYPE.NAMES)  then 
MAPJS.VAUD  :=  TRUE; 
end  if; 

elsif  (FKED.TYPE  =  SBC_TYPE_NAME.S)  then 

if  ((DELTA^TYPE  =  QC.TYPE J4AME.S)  or  (FKED.TYre  =  QC_TYPEJ<AMEB))  thoi 
MAP.IS.VAUD  :=  TRUE; 
end  if; 

else  -  unknown  type  passed 

raise  1NVALID_ADA_TYPE; 


end  if; 


letum  MAP_IS_VALID; 


exception 


when  INVALID_ADA_TYPE  => 

PUT_LINE(  ’***  ERROR;  INVALID  ADA  TYPE  DISCOVERED  FOR  -"); 
if  not  INVALID_QC  then 

PUT_LINE("  "  &  SBC_PARAMETERJD.S  SBC_TYPE_NAME.S); 

else 

PUT_LINE("  "  &  QC.PARAMETER JD.S  &  "  :  "  &  QC_TYPEJ^AME.S); 

end  if; 

PUT.UNEC'A  Type  MUST  BE  DEFINED  AS  AN  ADA  TYPE.  IT  CAN  RffERENCE"); 
PUT_LINE("1NF0RMATI0N  IN  ITS  GENERIC  PARAMETERS.  BUT  CANNOT’); 
PUT_LINE(’’REFERENCE  DEFINmON  INFORMATION  OUTSIDE  ITS  OWN  ”); 
PUT_UNE(’  SPECinCA110N.  A  Generic  PARAMETER  MUST  BE  FULLY  ”); 
PUT_LINE(  ”DEFINED  AS  AN  ADA  TYPE.  FT  CANT  EVEN  REFERENCE  OTHER "); 
PUT_LINE(  "DEFINITIONS  WITHIN  ITS  GENERICS."); 

NEW_LINE; 
raise ; 


when  others  => 

PUT_LINE( UNKNOWN  ERROR.  OCCURED  IN  procedure  ”); 
PUT_LINE( "  OUTPUT_PARAMETER_TYPES_MAP_OK.  '); 

NEW.LINE; 
raise ; 


end  OUTPUT_PARAMETER_TYPES_MAP_OK; 


end  PARAMETERJdAHTNGJ'KG; 
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--  Filename  /  Paraineter2_Itenitor_Pkgji 

”  Date  / 10  Aug  93 

-  Revised  / 18  Aug  93 

"  Author  j  Scott  Dolgqff 

-  System  /  Solbourne 

-Compiler  jVerdixAda 

-  Description  /  This  program  writes  the  input  and  output  parameters 

I  of  software  component’s  Prototype  System 
/  Description  Language  (PSDL)  specifications  into 
I  two  separate  files.  These  inputi output  parameter 
/files  are  later  used  by  the  graphical  user  interface 
/  written  with  TAE  to  help  tran^orm  components  selected 
/  through  matching  to  be  brought  into  the  prototype 
/  working  directory.  If  the  PSDL  specification  is  of 
/a  software  base  component,  then  a  check  is  made  to 
/  see  if  it  has  generic  parameters.  If  it  does 
/  then  the  generic  parameters  are  written  to  a  third 
/file. 

/  It  also  creates  input,  output,  and  (if  appropriate), 

/  generic  parameter  lists  that  are  used  to  help  establish 
/a  final  mapping  of  parameter  types  between  the  query 
/  and  software  base  components. 

with  PSDL_ID_PKG.  PSDL.CONCRETE.TYPE.WG,  PARAMETER_UST_PKG.  PSDL_.  kCX3RAM_OCG, 

PSDL_COMPONENT_PKG; 

use  PSDL_ID_PKG.  PSDL_CONCRETE_TYPE_PKG.  PARAMETER_LIST_PKG,  PSDL_PROGRAM_PKG, 

PSDL_COMPONENT_PKG. 

package  ITERATE2_THROUGH_OPERATOR_PARAMETERS_PKG  is 


"  gets  the  necessary  component  values  needed for  looking  up 
-  Ada  type  information 

procedure  SEND_COMPONENTS(MAIN_COMPONENT  in 

PSDL_COMPONENT_PKG.PSDL_COMPONENT; 

PROTO_SPEC  :  in  PSDL_PROGRAM_PKG.PSDL_PROGRAM): 


-  build  list  of  all  parameters  and  how  many  there  are 
procedure  BUILD_PARAMETER_UST(PARAM_UST  :  out  PARAMETERS; 

PARAM.COUNT :  out  INTEGER); 
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-  Procedure  that  opens  the  desired  file  (input,  ou^ut,  or  generic 

“  parameters  file)  for  the  desired  component  (query  or  software  base). 
— files  for  a  query  component  or  software  base  component  will 

-  be  created 

procedure  (n’EN_FILE(FILE_NAME :  in  STRING): 


--  Procedure  that  closes  the  file  opened  by  OPEN_FILE: 

procedure  CIjOSE.FILE; 


-  procedure  passed  to  generic  scan  procedure  in  generic  map  package 

-  extracts  the  input  parameters  from  the  Type  Declaration 

-  map 

procedure  GETJN_PARAMETER(ID  ;  in  PSDLJD_PKG.PSDLJD: 

TYPE_NAME :  in  PSDL_CONaiBrE_TYPE_PKG.TYPE_NAME); 

-  iterate  through  the  Type  Declaration  map  to  extract  the  set  of  input 
“  parameters. 

procedure  ITERATE_THROUGH_INPUT_PARAMETERS  is  new 

PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARATION_PKG.GENERIC_SCAN(GENERATE=>GEr_lN_PAR 
AMETER); 


-  procedure  passed  to  generic  scan  procedure  in  generic  map  package 

-  extracts  the  output  parameters  from  the  Type  Declaration 
-map 

procedure  GET_OUT_PARAMETER(ID  :  in  PSDL.ID.PKG.PSDLJD; 

TYPE_NAME :  in  PSDL_CONCRETE_TYPE_PKG.TYPEJi  AME); 


“  iterate  through  the  Type  Declaration  map  to  extract  the  set  of  output 
-  parameters. 

proced’iie  ITERATE_THROUGH_OUTPUT_PARAMETERS  is  new 

PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARA’nON_PKG.GENERIC_SCAN(GENERATE=>GET_OUT_PA 
RAMETER); 


-  procedure  passed  to  generic  scan  procedure  in  generic  map  package 

-  extracts  the  generic  parameters  from  the  Type  Declaration 
-map 

procedure  GET_GEN_PARAMETER(ID  :  in  PSDLJD.PKG.PSDLJD; 

TYPE.NAME .  in  PSDL_CONCRETE_TYPE_PKG.TYPE_NAME); 

-  iterate  through  the  Type  Declaration  map  to  extract  the  set  of  generic 

-  parameters. 
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procediiRs  nERATE_'niROUGH_GENERlCJ>ARAMEI^  u  new 

PSI)L^aM«»Ere_TYPE_PKG.TYPE_raCLARA‘nON_PKG.GH<ERlC_SCAN(GENERATE*>CTT_GENJ»A 

RAMETER); 


end  lTERATE2_THROUGH_OPERATOR_PARAMETERS_PKG; 


with  TEXTJO,  ADA.RECOGNEOED.TYPES.PKG,  DETERMINE_THE_ADA_TyPE_PKG. 
TYPEJ4AME_PKG.  A.STRINGS; 

use  TEXTJO.  ADA_RECOGNIZED_TYPES_PKG.  DETERMINE_THE^A_TYPE_PKG.  A_STRINGS; 
package  body  ITERATE2_THROUGH_OPERATOR_PARAMETERS_PKG  is 
GV JIAME,  GV_UDTJ<AME  ;  PSDLjCONCRETEjrYPE.WCG.TYPEJ^AME; 

"  It  is  necessary  to  know  where  the  Array  type  was  declared  when 
-  examining  the  generics  of  a  component.  You  need  to  know  whether 
you  should  be  looking  at  the  Operator  generics  or  a  Type's  generics. 

ARRAY_REFERENCE_IN_UDT :  BOOLEAN; 

THE  FILE  :  FILE.TYPE;  _ 

PARAMETER_UST_HEAD  :  PARAMETERS  ;=  nuU; 

PARAMETER_UST_PTR  ;  PARAMETERS  :*  nuU; 

PARAMETER_CX)UNT  :  INTEGER  :=0; 

IS  GENERIC  :  BOOLEAN  :*  FALSE; 

A^YJS.GENERIC  :  BOOLEAN  :=  FALSE; 


"  gets  the  necessary  component  values  needed  for  looking  up 
-  Ada  type  information 

procedure  SEND_COMPONENTS(MAIN_COMPONENT  in 

PSDL_COMPONENT  HCG.PSDL.COMPONENT; 

PROTO.SPEC  :  in  PSDL_PROGRAM_PKG.PSDL_PROGRAM)  is 


begin 

PASS_COMPONLNTS(MAIN_COMPONENT.  PROTO_SPEC); 


end  SEND.COMPONENTS; 


--  build  list  of  all  parameters  and  how  many  there  are 

procedure  BUILD_PARAMETER_LIST(PARAM_LIST  :  out  PARAMETERS; 

PARAM.COUNT ;  out  INTEGER)  is 
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besin 

PARAM_UST  :=  PARAMETER_LISTJffiAD; 
PARAM_COUNT  :=  PARAMETER_C»UNT; 


--  reinitialize  package  memory 
PARAMETER^LIST_H£AD  :=  nuU; 
PARAMEraiLLIST_PTR  :=  null; 
PARAMETEILCXIUNT  :=  0; 

end  BUILDJPARAMEIEILUST; 


“  Procedure  that  opens  the  desired  file  (input,  output,  or  generic 
”  parameters  file)  for  the  desired  component  (query  or  software  base). 
— files  for  a  query  component  or  software  base  component  will 

-  be  created 

procedure  OPEN_FILE(FILE_NAME ;  in  STRING)  i$ 
begin 

-  create  the  (input,  output,  or  generic)  parameter  text  file 

CREATE(THE_FILE.  MODE  =>  OUT_FILE.  NAME  =>  FILE J4AME); 

end  OPEN_FILE; 


-  Procedure  that  closes  the  file  opened  by  OPEN_FILE; 

{TOcedure  CLOSE.FILE  is 

begin 

CLOSECTHE.FILE); 
end  CLOSE_FILE; 


-  Writes  the  input,  output,  or  generic  parameter  to  its  respective 
--  text  file. 

procedure  WRITE_PARAMETER_TO_FILE(TYPEJ<AME_ID :  PSDLJD_PKG.PSDL_ID)  is 
begin 

if  1S_GENERIC  then 

PUT(THE_FILE,  ”  :  {G)  "  &  TYre_N AME.ID.S); 

K.GENERIC  :=  FALSE; 
else 

PUT(THE_FILE. " ;  "  &  TYPEJ^ AME.ID.S); 
end  if; 

Old  WRITE_PARAMErER_TO_FILE; 
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-  procedure  passed  to  generic  scan  procedure  in  generic  map  package 

-  extracts  the  input  parameters  from  the  Type  Declaration 

"  map.  NOTE  that  this  procedure  will  be  run  once  for  each  input 

-  parameter  as  the  entire  set  of  input  parameters  is  iterated  through. 

procedure  GET_IN_PARAMETER(ID  :  in  PSDLJD_PKG.PSDL_ID: 

TYHEJ^AME ;  in  PSDL_C<»ICRETE_TYre_PKG.TVre_NAME)  is 


”  Us^'' Defined  Type  (UDT)  type  name 

UDT_TYPE_NAME.GENERIC_TYPEJ^AME.ELEMENT_TYre,  INDEX  TYPE.  THE  TYPE  NAME 
PSDL_CONCRETE_TYPE_PKG.TYPE_NAME: 

ELEMENT.UDT,  INDEX_UDT 
PSDLJD_PKG.PSDL_ID; 

ELEMENTJS.UDT,  INDEX_IS_UDT,  FOUND.TYPE 
BOOLEAN; 

OPERATOR_CX)MPONENT 

DETERMINE_THE_ADA_TYPE_PKG.COMPONENT_TYPE  :=  OPERATOR_COMP; 


begin 

THE_TYPE_NAME  ~  TYPE.NAME; 


”  write  the  name  of  the  identifier  to  the  file 

PUT(THE_FILE.ID.S); 

-  write  the  name  of  the  identifier  into  the  parameter  list 

if  PARAMETER_UST_HEAD  =  nuU  then 

--  initialize  list 

PARAMETER_UST_HEAD  :=  new  PARAMETER_UST_NODE; 
PARAMETER_UST_HEAD.ID  :=  ID; 

PARAMETER_UST_PTO  :=  PARAMETER_UST_HEAD; 

else 

PARAMETER_UST_PTR.NEXT  :=  new  PARAMETER_UST_NODE; 
PARAMETER_UST_PTR  ;=  PARAMETER_UST_PTR J4EXT; 

PARAMETER_UST_PTR.ID  :=  ID; 
end  if; 

PARAMETER.COUNT  :=  PARAMETER.COUNT  + 1; 

if  RECOGNIZED. AD A_TYPE(THE_TYPE_NAMEJ>fAME)  then 

-  Input  parameter  is  a  valid  Ada  type  so  go  ahead  and  append 
"  the  current  file  with  this  Ada  type. 

THE_TYPE_NAME.NAME  :=  A_STRINGS.LOWER_TO  UPPER(THE_TYPE_NAMEJ4AME); 
WRITE_PARAMETER_TO_FILE(THE_TYPE_NAMEJiAME); 
PARAME11ER_UST_PTR.THE_TYPE  :=  THE.TYPE.NAMEJJAME; 
if  THE_TYPEJ4AMEJ4AME.S  =  ARRAY.TYPE  then 
ARRAY_REFERENCE_IN_UDT  ;=  FALSE; 
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CETJUUUY_COMPONENTS(THE_TYPE_NAME.  ELEMENT.TYPE,  BLEMENTJS.UDT, 
ELEMENT.UDT. 

INDEX.TYPE,  INDEXJS.UDT,  INDEJCUDT.  ARRAY_REFERENCEJN_UDT); 

"  add  array  components  to  file 

PUTfnffi_FBLE.”IAE"); 

WWTE_PARAMETERjrO_FILE(ELEMENT_TYI>ENAME); 

PUT(THE_FILE,".AI'); 

WRnE_PAIUMErER_TO_FILE(INDEX_TYreJiAME): 

PUT_UNE(THE_FILE.  "1"); 

--  add  new  array  element 

PARAMETEICUSTJTl^  AWUY^EIEMENT.PTO new  PARAMETHLUSTJiODE 
PARAMETER_UST_PTO.ARRAY_ELEMen'_PTO.’niE_TYPE  -  ELEMENT.TYPENAME; 
if  ELEMENT  JS.UDT  then 

PARAMETER^LISTJPTRJUWAY_ELEMENT_PTR.UDT  :=  ELEMENT.UDT; 
PARAMETER^UST_PTR.ARRAY_ELEMENT_PTR.HAS_UDT  :=  TRUE; 
end  if; 

-  add  new  array  index 

PARAMETER_UST_PTR.ARRAYJ[NDEX_PTR  ;=  new  PARAMETER_LIST_NODE; 
PARAMETER_UST_PTR.ARRAYJNDEX_PrR.THE_TYPE  :=  INDEX_TYPEJ4AME; 
ifINDEX_IS_UDTthcn 

PARAMETER_UST_PTR.ARRAY_INDEX_PTR.UDT  :=  INDEX_UDT; 
PARAMEIER_UST_PTR.ARRAY_INDEX_PTR.HAS_UDT  :=  TRUE; 
end  if; 


else  --  not  an  Array  type 
NEW_LINE(THE_FILE); 
end  if; 

else 

"  Maybe  the  parameter  is  defined  in  the  generics  of  the 
“  Operator  component. 

CHECK_GENERICS(OPERATOR_COMPONENT.  THE_TYPE_NAME,  GENERIC_TYPE_NAME. 
FOUND_TYPE); 

if  FOUND_TYPE  then 

-  The  type  is  either  not  composite  or  even  if  composite, 

"  will  not  be  further  specified  by  its  components  so 

—  go  ahead  and  encode. 

UDT_TYPE_NAME  ;=  GENERIC_TYPE_NAME; 

PARAMETER_UST_PTR.GENERIC_ID  :=  THE_TYPE_NAMEJ^AME; 
PARAMETER_UST_PTR.THE_TYPE  :=  GENERIC_TYPEJIAMEJIAME; 
PARAMETER_UST_PTR.DEFINED_BY_GENERIC_TYPE  :=  TRUE; 

IS_GENERIC  :=  TRUE; 

ARRAY_IS_GENERIC  :=  TRUE; 

else  -  The  parameter  must  be  a  user  defined  type  so 
-  get  its  type. 

GET_USER_DEFINED_TYPE{THE_TYPE_NAME,  UDT_TYPE_NAME); 
PARAMETER_UST_PTR.THE_TYPE  :=  UDT_TYPE_NAMENAME; 
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--  record  the  UDT  name 

PARAMETER_UST_PTR.UDT  :=  THE_TYPE_NAMENAME; 

PARAMETER^LIST_PTO.HAS_UDT  :=  TRUE; 

end  if; 

UDT_TYPE_NAMEJ4AME  :=  A^STRINGS.ljOWER_TO_UmR(UDT_TYre_NAMEJ4AME); 
WRrrE_PARAMBrER_T0_FILE(UDT_TYPEJ4AMEJfAME); 
if  UDT_TYPE_NAMEJ4AME.S  =  ARRAY.TVre  then 
PUT(THE_FILE,  "[AE"); 

ARRAY_REFERENCE_IN_UDT  :=  TRUE; 

GET_ARRAY_COMPONENTS(UDT_TYrej^AME.  ELEMENT.TYPE,  ELEMENTJS.UDT, 
ELEMENT.UDT, 

INDEX_TYPE.  INDEX_IS_UDT.  INDEX.UDT.  ARRAY.RH^ERENCEJN.UDT); 

-  add  array  components  to  file 

WRrrE_PARAMETER_TO_FILE(ELEMENT_TYre.NAME); 

PUT(THE_FILE. ",  AI"); 

WRITE_PARAMETER_T0_FILE(INDEX_TYPEJ4AME); 

PUT_UNE(THE_FILE,  "J"); 

"  add  new  array  element 

PARAMETER_UST_PTR.ARRAY_ELEMENT_PrR  :=  new  PARAMETER_LISTJ40DE; 
PARAMETER_UST_PTR.ARRAY_ELEMENT_PTR.THE_TYPE  :=  ELEMENT.TYPENAME; 
if  ELEMENT_IS_UDT  then 

PARAMErER_UST_PTR.ARRAY_ELEMENT_PTR.UDT  :=  ELEMENT.UDT; 
PARAMETER_UST_PTR.ARRAY_ELEMENT_PTR.HAS_UDT  :=  TRUE; 
end  if; 

-  add  new  array  index 

PARAMETER  UST.PTR. ARRAY  INDEX  PTR  ;=  new  PARAMETHi_UST_NODE; 
PARAMETER_UST_PTR.ARRAY_INDEX_PTR.THE.TYPE  :=  INDEX_TYPEJNAME; 
ifINDEXJS.UDTthen 

PARAMETER_UST_PTR.ARRAY_INDEX_PTR.UDT  :=  INDEX_UDT; 
PARAMETER_UST_PTR.ARRAY_INDEX_PTR.HAS_UDT  :=  TRUE; 
end  if; 

-  if  array  is  generic  then  components  must  reflect  that 

if  ARRAYJS.GENERIC  then 

ARRAYJS.GENERIC  :=  FALSE; 

PARAMETER_UST_PTR.ARRAY_ELEMENT_PTR.DEFINED_BY_GENERIC_TYPE  :=  TRUE; 
PARAMETER_UST_PTR.ARRAY_INDEX_PTR.DEFINED_BY_GENERIC_TYPE  :=  TRUE; 

end  if; 

else  -  The  type  is  either  not  ARRAY JIYPE  or  even  if  some  other 
-  composite,  will  not  be  further  specified  by  its  components. 

-  added  already  so  go  to  next  line  in  file. 

NEW_LINE(THE_FILE); 

end  if; 
end  if; 
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exception 


when  others  => 

PUTJUNEC'***  ERROR:  OCCURED  IN  procedure  GETJN  PARAMETER.  “); 

NEW_LINE; 

raise ; 

end  GETJN.PARAMETER; 


--  procedure  passed  to  generic  scan  procedure  in  generic  map  package 
--  extracts  the  output  parameters  from  the  Type  Declaration 
"  map.  NOTE  that  this  procedure  will  be  run  once  for  each  output 

-  parameter  as  the  entire  set  of  output  parameters  is  iterated  through. 

proMdure  GET_OUT_PARAMETER(ID  :  in  PSDLJD.PKG.PSDLJD; 

TYPE_NAME :  in  PSDL_CX)NCRETE_TYPE_nCG.TYPE_NAME)  is 


-  User  Defined  Type  (UDT)  type  name 

UDT_TYPE_NAME.  GENERIC_TYPE_NAME,  ELEMENT.TYPE,  INDEX.TYPE,  THE.TVrej^AME 
PSDL_CONCRETE_TYre_PKG.TYPE_NAME; 

ELEMENT.UDT,  INDEX.UDT 
PSDLJD_PKG.PSDL_ID; 

ELEMENTJS.UDT,  INDEX  IS.UDT,  FOUND.TYPE 
BOOLEAN; 

OPERATOR.COMPONENT 

DETCRMINE_THE_ADA_TYPE_PKG.COMPONENT_TYPE  ;=  OPERATOR_COMP; 


begin 

THE_TYPE_NAME  :=  TYPE_NAME; 

”  write  the  name  of  the  identifier  to  the  file 

PUT(THE_FILE.ID.S); 

“  write  the  name  of  the  identifier  into  the  parameter  list 

if  PARAMETER_LIST_HEAD  =  null  then 

-  initialize  list 

PARAMETER_UST_HEAD  :=  new  PARAMETER_UST_NODE; 
PARAMETER_UST_HEAD.ID  :=  ID; 

PARAMETER_UST_PTR  ;=  PARAMETER_UST_HEAD; 

else 

PARAMETER_UST_FTR.NEXT  :=  new  PARAMETER_UST_NODE; 
PARAMETER_UST_PTR  :=  PARAMETER.UST.PTR  JIEXT; 
PARAMETER_UST_PTR.ID  :=  ID; 
end  if; 

PARAMETER.COUNT  :=  PARAMETER.COUNT  + 1; 
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if  RBCOGNlZED_ADA_TYPE(TOE_TYPEJIAMENAME)  then 
-  Output  parameter  is  a  valid  Ada  type  so  go  ahead  and  add 
-•  to  the  file. 

THE_TYPEJiAMEJ4AME  :=  A^STRINGSljOWERjrO_UPPER(THE_TYPE_NAMENAME); 
WRrre_PARAMETER_TO_FILE(THE_TYPE_NAMENAME): 
PARAMETER^LIST_PTR.THE_TYre  :=  THE_TYre_NAMENAME; 
if  THE_TVPE_NAMEJ<AME.S  =  ARRAY.TYPE  then 


PUT(THE_FILE.  "[AE"); 

ARRAY_REFERENCE_IN_UDT  :=  FALSE; 

GET_ARRAY_COMPONENTS(THE_TYPEJ4AME,  ELEMENT.TYre,  EUaiENTJS.UDT, 
ELEMENT.UDT, 

lNDEJe.TYPE,  INDEX_IS_UDT.  INDEX_UDT.  ARRAY.REFERENCE JN.UDT); 

"  add  array  components  to  file 

WRrrE_PARAMETER_TO_FILE(ELEMENT_TYre.NAME); 

PUT(THE_FILE.".AI”); 

WRITE_PARAMETER_TO_FILE(INDEX_TYPE>JAME); 

PUT_LINE(THE_nLE. 

”  add  new  array  element 

PARAMETER_UST_PTR.ARRAY_ELEMENT_PTR  :=  new  PARAMETEILLIST_NODE; 
PARAMETER_UST_PTR.ARRAY_El .  MENT_PTR.THE_TYre  :=  ELEMENT_TYPE.NAME; 
if  ELEMENT_IS_UDT  then 

PARAMErER_UST_PTR.ARRAY_ELEMENT  PTR.UDT  :=  ELEMENT.UDT; 
PARAMETER_UST_PTR.ARRAY_ELEMENT_PTR.HAS_UDT  :=  TRUE; 
end  if; 

--  add  new  array  index 

PARAMETER_UST_PTR.ARRAY  INDEX  PTR  :=  new  PARAMErER_USTJIODE; 
PARAMErER_UST_PTR.ARRAY_INDEX  PTR.THE.TYPE  :=  INDEX.TYPEHAME; 
ifINDEXJS.UDTthen 

PARAMETER_UST_PTR.ARRAY_1NDEX_PTR.UDT  ;=  INDEX_UDT; 
PARAMETER_UST_PTR.ARRAY_INDEX_PTRHAS_UDT  :=  TRUE; 
end  if; 

else  --  not  an  Array  type 
NEW_LINE(THE_nLE); 
end  if; 

else 

-  Maybe  the  parameter  is  defined  in  the  generics  of  the 

-  Operator  component. 

CHECK_GENERICS(OPERATOR_COMPONENT.  THE_TYPE_NAME,  GENERIC_TYre_NAME. 
FOUND_TYPE); 

ifFOUND_TYPEthen 

”  The  type  is  either  not  composite  or  even  if  composite, 

-  will  not  be  further  specified  by  its  components  so 

—  go  ahead  and  encode. 

UDT_TYPE_NAME  :=  GENERIC_TYPE_NAME; 

PARAMETER_UST_PTR.GENERIC_ID  :=  THE_TYPE_NAMEJIAME; 
PARAMETER_UST_PTR.THE_TYPE  :=  GENERIC_TYPE_NAMEJvlAME; 
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PARAMETER_UST_PTR.DEFINED_BY_GENER1C_TYPE  :=  TT.UE; 

IS_GENERIC:=TRUE; 

ARRAY_IS_GENER1C  ;=  TRUE; 

else  ”  The  parameter  must  be  a  user  d^ned  type  so 
”  get  its  type. 

GET_USER_DEFINED_TYPE(THE_TYPE_NAME.  UDT_TYPE_NAME); 
PARAMETER_UST_PTR.THE_TYPE  :=  UDT_TYPE_NAMENAME; 

-  record  the  UDT  name 

PARAMETER_UST_PTR.UDT;=THE_TYPE  NAMEJiAME; 

PARAMETER_UST_PTR.HAS_UDT  :=  TRUE; 

end  if; 

UDT_TYPE_NAME>rAME  :=  A_STRINGS.LOWER_TO_UPPER(UDT_TYPE_NAMEJ^AME); 
WRrrE_PARAMETER_TO_FILE(UDT_TYPE_NAMEHAME); 
if  UDT_TYPE_NAME.NAME.S  =  ARRAY_TYPE  then 

PUT(THE_FILE, "( AE"); 

ARRAY_REFERENCE_IN_UDT  ;=  TRUE; 

GET_ARRAY_COMPONENTS(UDT_TYPE_NAME.  ELEMENT.TYPE,  ELEMENT_IS_UDT. 
ELEMENT.UDT, 

INDEX.TYPE,  INDEXJS.UDT,  INDEX_UDT.  ARRAY_REFERENCE_IN_UDT); 

-  add  array  components  to  file 

WRITE_PARAMETER_TO_HLE(ELEMENT_TYPENAME); 

PUT(THE_nLE.  ",  AI"); 

WRITE_PARAMErER_TO_FILE(INDEX  TYPEJ^AME); 

PUT.UNECTHE.FILE,  "1"); 

--  add  new  array  element 

PARAMETER_UST_PTR.ARRAY_ELEMENT_PrR  ;=  new  PARAMETER_LIST_NODE; 
PARAMETER_UST_PTR.ARRAY_ELEMENT_PTR.THE_TYPE  :=  ELEMENT_TYPENAME; 
if  ELEMENTJS.UDT  then 

PARAMETER_UST_PTR.ARRAY_ELEMENT_PTR.UDT  ;=  ELEMENT_UDT; 
PARAMETER_UST_PTR.  ARRAY_ELEMENT_PTR.HAS_UDT  :=  TRUE; 
end  if; 

--  add  new  array  index 

PARAMETER_UST_PTR.ARRAY_INDEX_PTR  :=  new  PARAMETER_UST_NODE; 
PARAMETER_UST_PTR.ARRAY_INDEX_PTR.THE_TYPE  :=  INDEX_TYPEJ^AME; 
ifINDEX_IS_UDTthen 

PARAMETER_UST_PTR.ARRAY_INDEX_PTR.UDT  :=  INDEX.UDT; 
PARAMETER_UST_PTR.ARRAY_INDEX_PTR.HAS_UDT  :=  TRUE; 
end  if; 

--  if  array  is  generic  then  components  must  reflect  that 

if  ARRAY_IS_GENERIC  then 

ARRAY_IS_GENERIC  FALSE; 

PARAMETER_UST_PTR.ARRAY_ELEMENT_PTR.DEFINED_BY_GENERIC_TYPE  :=  TRUE; 
PARAMETER_UST_PTR.ARRAY_INDEX_PTR.DEFINED_By1gENERIC_TYPE  :=  TRUE; 

end  if; 
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else  "  The  type  is  either  not  ARRAY JTYPE  or  even  if  some  other 
-  composite,  will  not  be  further  specified  by  its  components. 
-  already  added  to  file  so  go  to  next  line  in  file 
NEW_LINE(THE_FILE); 
end  if; 
end  if; 


exception 
when  others  => 

PUT  UNE("***  ERROR:  OCCURED  IN  procedure  GET_OUT_PARAMETER.  "); 

NEwlUNE; 

raise : 

end  GET_OUT_PARAMETER; 


"  procedure  passed  to  generic  scan  procedure  in  generic  map  package 
”  extracts  the  generic  parameters  from  the  Type  Declaration 

—  map.  NOTE  that  this  procedure  will  be  run  once  for  each  generic 

-  parameter  as  the  entire  set  of  generic  parameters  is  iterated  through. 

—  The  file  name  is  predetermined  because  only  a  software  base  component 

-  can  have  generic  parameters. 

procedure  GET_GEN_PARAMETERaD  :  in  PSDLJD.PKG.PSDLJD; 

TYPE_NAME .  in  PSDL_CONCRETE_TYPE_PK.G.TYPE_NAME)  is 


“  User  D^ned  Type  (UDT)  type  name 

UDT_TYPE_NAME.  GENERIC_TYPE_N  AME,  ELEMENT.TYPE.  INDEX_TYPE,  THE_TYPE_NAME 
PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 

ELEMENT_UDT,  INDEX_UDT 
PSDL_ID_PKG.PSDL_ID; 

ELEMENT_IS_UDT.  INDEX_IS_UDT.  FOUND_TYPE 
BOOLEAN; 

OPERATOR_COMPONENT 

DETERMINE_THE_ADA_TYPE_PKG.COMPONENT_TYPE  :=  OPERATOR_COMP; 
begin 

THE_TYPE_NAME  :=  TYPE.NAME; 


-  write  the  name  of  the  identifier  to  the  file 

PUT(THE_FILE,  ID.S); 

--  write  the  name  of  the  identifier  into  the  parameter  list 

if  PARAMETER_LIST_HEAD  =  null  then 

—  initialize  list 

PARAMETER_UST_HEAD  ;=  new  PARAMETER  UST_NODE; 
PARAMETER_UST_HEAD.ID  :=  ID; 


PARAMErER_LIST_PTR  :=  PARAMETER_UST_HEAD; 


else 

PARAMEriER_UST_PTRJ^EXT  :=  new  PARAMETER_LIST_NODE; 

PARAMETER_LIST_PTO  :=  PARAMETER_UST_PTR  JlEXT; 

PARAMETER_UST_PTR.ID  :=  ID; 
end  if; 

PARAMETER.COUNT  :=  PARAMETER.COUNT  +  1; 
if  RECOGNIZED.  ADA_TYPE(THE_TYPE_NAMENAME)  then 

~  generic  parameter  is  a  valid  Ada  type  so  go  ahead  and  append 
”  the  current  file  with  this  Ada  type. 

THE_TYPE_NAMEJiAME  :=  A_STRINGS.IjOWER_TO_UPPER(THE_TYPE_NAMEJ<AME); 
WRITE_PARAMETER_TO_FILE(THE_TYPE_NAMEJIAME); 

PARAMETER_UST_PTR.THE_TYPE  :=  THE_TYPE_NAMEJ4AME; 
if  THE.TYPEJ^  AMEliAME.S  =  ARRAY.TYPE  then 
ARRAY_REFERENCE_IN_UDT  ;=  FALSE; 

"  Note:  even  though  Get  Array  Components  will  not  restrict 
"  its  search  for  the  types  of  the  array  components  to  what 
"  is  defined  in  the  generics  portion  of  the  Operator  component, 

-  that  is  OK.  The  reason  is  that  by  virtue  of  reaching  this 

-  point  (i.e.  a  software  base  component  has  been  matched  and 

-  selected),  we  are  sure  that  the  software  base  component 

-  is  correctly  formulated  with  regards  to  UP  SDL  specification. 

-  Otherwise,  it  could  not  have  been  stored  in  the  software  base. 

GET_ARRAY_COMPONENTS(THE_TYPE_NAME,  ELEMENT.TYPE,  ELEMENTJS.UDT. 
ELEMENT  UDT, 

INDEX.TYPE,  INDEX_IS_UDT.INDEX_UDT.  ARRAY_REFERENCE_IN_UDT); 

-  add  array  components  to  file 

PUT(THE_FILE,  ”[AE''); 

WRrrE_PARAMETER_TO_nLE(ELEMENT_TYPENAME); 

PUT(THE_FILE, ",  AI"); 

WRITE_PARAMETER_TO_FILE(INDEX_TYPE.NAME); 

PUT_LINE(THE_nLE, ")"); 

"  add  new  array  element 

PARAMETER_UST_PTR.ARRAY_ELEMENT_PTR  :=  new  PARAMETER_USTJ40DE; 
PARAMETER_UST_PTR.ARRAY_ELEMENT_PTR.THE_TYPE  :=  ELEMENT_TYre.NAME; 
if  ELEMENTJS.UDT  then 

PARAMETER_UST_PTR.ARRA  Y_ELEMENT_PTR.UDT  :=  ELEMENT.UDT; 
PARAMETER_UST_PTR.ARRAY_ELEMENT_PTR.HAS_UDT  :=  TRUE; 
end  if; 


"  add  new  array  index 

PARAMETER_UST_PTR.ARRAY_INDEX_PTR  :=  new  PARAMETER.USTJ^ODE; 
PARAMETER_UST_PTR.  ARRAY_INDEX_PTR.THE_TYPE  :=  INDEX.TYPEJ^AME; 
ifINDEXJS.UDTthen 

rARAMETER_UST_PTR.ARRAY_INDEX_PTR.UDT  ;=  INDEX.UDT; 
PARAMETER_UST_PTR.ARRAY_INDEX_PTR.HAS_UDT  :=  TRUE; 
end  if; 

else  -  rwt  an  Array  type 
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NEWJLINE(TMe_FILE); 

end  if; 
else 

raise  INVALID_ADA_TYPE; 
end  if; 


excq>tion 


when  INVALID_ADA_TYPE  => 

PUT_LINE( ERROR:  INVALID  ADA  TYPE  DISCOVERED  FOR  -"); 

PUT.LINEC’  ••  &  THE_TYPE_NAMEJ^AME.S); 

PUT_IJNE(’  A  Type  MUST  BE  DEFINED  AS  AN  ADA  TYPE.  IT  CAN  REFERENCE'*); 
PUT_L1NE(  "INFORMATION  IN  ITS  GENERIC  PARAMETERS,  BUT  CANNOT  ); 
PUT.UNEC'REFERENCE  DEFINITION  INFORMA'DON  OUTSIDE  ITS  OWN"); 
PUT_LINE("SPECinCATION.  A  Generic  PARAMETER  MUST  BE  FULLY  "); 
PUT_LINE(  "DEFINED  AS  AN  ADA  TYPE.  IT  CANT  EVEN  REFERENCE  OTHER  "); 
PUT_LINE(  "DEFINITIONS  WITHIN  ITS  GENERICS."); 

NEW.UNE; 
raise  ; 


when  others  => 

PUT_LINE('"***  ERROR;  OCCURED  IN  procedure  GET.GEN.PARAMETER.  "); 

NEW.UNE; 

raise ; 


end  GET_GEN_PARAMETER; 


end  ITERATE2_THROUGH_OPERATOR_PARAMETERS_PKG; 


-  Filename  /  Store_ADT_Signatures_In_File.a 

--  Date  /  30  August  93 

-  Author  /  Scott  Dolgoff 

-  System  /  Sun  Sparcstation 

-  Compiler  /  Verdix  Ada 

-  Description  /  This  program  receives  the  encoded  signatures  and 

j  then  stores  them  in  the  file  ” Signature. dat”  for 
/  subsequent  use  by  a  C++  program. 

with  TEXTJO,  ENCODE_ADT_SIGNATURE_PKG,  ADD_ADA_TYre_TO_SIGNATURE_PKG; 
use  TEXTJO,  ENCODE_ADT_SIGNATURE_HCG,  ADD_ADA_TYre_TO_SIGNATURE_PKG; 

procedure  STORE_ADT_SIGNATURES_IN_nLE  is 
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IMduge  INTOGER_INOUT  is  iww  INTEGER JO(INTEGER); 
use  INTEGER_INOUT; 

IN.SIG,  OUT.SIG :  SIGNATURE: 

SIGNATURE_FILE_NAME :  constant  STRING  :=  “Signature.dat"; 
SIGNATURE_FILE :  TCJCr_IO.FlLE_TYPE; 


b^in 

"  Get  the  encoded  ADT  signatures. 

ENCODE_ADT_SIGNATURE(IN_SIG.  OUT.SIG); 

--  Create  the  file  to  store  the  ADT  signatures  in. 

TEXTJO.CREATE(SIGNATURE_FILE,  MODE  =>  OUT_FILE,  NAME  =>  SIGNATURE_F1LE_N  AME); 

--  Store  ADT  aggregate  input  signature. 

for  REGION  in  ALL.REGIONS  FIRST ..  ALL_REGIONSLAST  loop 

—  Note:  Setting  WIDTH  to  zero  is  critical  because 
it  l^  justifies  the  numbers.  This  makes 
it  easy  on  the  C++  program  that  has  to  read 
the  numbers  from  a  file  as  characters  and 
then  convert  them  to  integers. 

PUT(SIGNATURE_FILE.  IN_SIG(REGION),  WIDTH  =>  0); 

NEW_IJNE(SIGNATURE_FILE); 

end  loop; 


"  Store  ADT  aggregate  output  signature. 

for  REGION  in  ALL_REGIONS'FIRST ..  ALL_REGIONS'LAST  loop 

PUT(SIGNATURE_FILE  OUT_SIG(REGION).  WIDTH  =>  0); 
NEW_LINE(SIGNATURE_FILE); 


end  loop; 

TEXT_IO.CLOSE(SIGNATURE_FILE); 
end  STORE_ADT_SIGNATURES_IN_nLE; 


”  Filename  /  Store_Signatures_In_File.a 
--  Date  /  29  August  93 
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”  Author  /  Scott  Dolgoff 

--  System  /  Sun  SPARCstation 

-  Compiler  /  Verdix  Ada 

-  Description  /  This  program  receives  the  encoded  signatures  and 

/  then  stores  them  in  the  file  “ Signature. dat"  for 
/  subsequent  use  by  a  C++  program. 

with  TEXTJO,  ENCODE_OPERATOR_SIGNATURE_PKG.  ADD_ADA_TYPE_TO_SIGNATURE_PKG; 
use  TEXTJO.  ENCODE_OPERATOR_SIGNATURE_PKG.  ADD_ADA_TYPE_T0_SIGNATUREJ1CG; 

procedure  STORE.SIGNATURES JN_FILE  is 

package  INTEGER  JNOUT  is  new  INTEGERJO(INTEGER): 
use  INTEGER  JNOUT; 

IN.SIG,  OUT.SIG :  SIGNATURE; 

SIGNATURE_FILE_NAME ;  constant  STRING  :=  ''Signatuie.dat"; 

SIGNATURE_FILE :  TEXTJO.FILE.TYPE; 


begin 


-  Get  the  encoded  Operator  signatures. 

ENCODE_OPERATOR_SIGNATURE(IN_SIG,  OUT.SIG); 

-  Create  the  file  to  store  the  Operator  signatures  in. 

TEXTJO.CREATE(SIGN  ATURE.HLE,  MODE  =>  OUT_FILE.  NAME  =>  SIGNATURE_FILE_N  AME); 

--  Store  Operator  input  signature. 

for  REGION  in  ALL.REGIONS’HRST ..  ALL_REGIONS'LAST  loop 

-  Note:  Setting  WIDTH  to  zero  is  critical  because 

it  left  justifies  the  numbers.  This  makes 
it  easy  on  the  C++  program  that  has  to  read 
the  numbers  from  a  file  as  characters  and 
then  convert  them  to  integers. 

PUT(SIGNATURE_FILE.  IN_SIG(REGION).  WIDTH  =>  0); 

NEW_LINE(SIGNATURE_FILE); 

end  loop; 


“  Store  Operator  output  signature. 

for  REGION  in  ALL.REGIONS'FIRST ..  ALL.REGIONS  LAST  loop 

PUT(SIGNATURE_EILE.  OUT_SIG(REGION),  WIDTH  =>  0); 
NEW_LINE(SIGNATURE_FILE); 


end  loop  ; 

TEXTJO.CLOSE(SIGNATURE_FILE); 


269 


end  STORELSIGNATURES_IN_FILE; 
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APPENDIX  E-  C++ SOURCE  CODE 


The  code  listed  below  is  in  alphabetical  order  and  contains  C-h-  routines  for 


signature  matching. 


/• 

Filename  I  ADT_Signature.h 
Date  1 31  August  93 
Autluv  I  Scott  Dolgoff 
System  I  Sun  SPARCstadon 
Compiler  I  Sun  C++  2.0 

Description  I  This  is  a  header  file  for  the  ADT  Signature  class. 

I  It  contains  the  various  iiincdons  required  to 
I  determine  whether  a  query  and  software  base 
I  component  match. 

•/ 

#ifhdcf  _  ADT.SIGN  ATURE_H 

#define _ ADT_SIGNATURE_H  //  prevent  multiple  #includes 

#include  "sball.hxx" 

#include  "sbcxlem.h" 

#include  "Signature.h" 

#include  <Primitives.h> 


struct  SIGNATURES 

{ 

int  INPUT_SIGlALL_REGIONS]; 
int  OUTPUT_SIG[ALL_REGIONS]; 
}; 

struct  MATCH_UST 

{ 

int  SB_OPERATOR; 
struct  MATCH  UST*NEXT; 

1; 


struct  PARAMETERS 

I 

int  NUM_OF_INPUT_PARAMETERS; 
int  NUM_OF_OUTPUT_PARAMETERS; 

); 


typedef  struct  MATCH_LIST  ELEMENT; 
typedef  ELEMENT  ‘LINK; 

class  ADT.SIGNATURE  { 
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private: 

Boolean  MATCH.FOUND; 
intMAX_LEVELS; 

int  GET_NUMBER(FILE*ifp); 

void  TREE.TRAVERSAL  (UNK  QUERY.OreRATORSO, 

Boolean  ONE_TO_ONE_MAP1). 
int  LEVEL); 

public: 

//  Retrieves  ADT  operator  signatures  stored  in  text  files. 

void  GET_SIGNATURES_FROM_FILE  (int  IN.SIGO.  int  OUT.SIGQ,  char*); 

//  Load  ADT  operator  input  and  ouq>ut  signatures  into  an  array  whose  cells 
//  represent  the  ADT  operates.  Also  store  the  number  of  input  and  ouqmt 
//  parameters  each  operator  has  in  an  array. 

void  LOAD.ADT  OPERATOR.SIGNATURES  (SIGNATURES  THE.SIGNATUREQ, 

PARAMETERS  OPERATORJOI], 
SB_ADT_COMPONENT*): 


//  Create  an  array  of  linked  lists.  Each  array  celt  corresponds  to 
//  a  query  component  ADT  operator.  Each  linked  list  is  made  up  of 
//  all  software  base  component  ADT  operators  that  match  the  query 
//  component  ADT  operator. 

vdd  BUILD  OPERATORJriATCH_UST  (SIGNATURES  QUERY.SIGNATUREQ, 

UNK  QUERY  OreRATORSQ, 
PARAMETERS  QUBRY.OPERATORJOD, 
SB_ADT_COMPONENT  ’query.component, 
SbIaDtIcOMPONENT  ♦next_component): 


//  This  function  attempts  to  find  a  valid  mapping  between  query  component 
//  ADT  operators  and  the  software  base  component  ADT  operators.  A  1  is 
//  returned  if  a  valid  match  is  found,  otherwise  a  0  is  returned, 
int  ADT.MATCH  (UNK  QUERY_OPERATORS[]. 

SB_ADT_C0MP0NENT  ‘query  _component, 
SB_ADT_C0MP0NENT  *next_coinponcnt); 


}: 

#endif  //_ADT_SIGNATURE_H 


/* 
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FUeiuune  I  ADT_Signature.cxx 
Date  1 31  August  93 
Author  I  Scott  Dolgoff 

System  I  Sun  SPARCstation 

Compiler  I  Sun  C-t-t-  2.0 

Description  I  This  is  the  main  module  for  the  ADT.Signature  class. 

I  It  contains  the  various  functions  required  to 
I  determine  whedier  a  query  and  software  base 
I  component  match. 

I  TECHNICAL  NOTE;  In  C-m-  arrays  are  treated  as  pointers  to 
I  the  head  of  the  array.  Therefore,  when  arrays  are  passed 
I  as  function  arguments,  it  is  automatically  a  call  by 
I  reference.  The  only  way  to  protect  the  actual  argument 
I  ftom  being  changed  is  to  set  a  local  array  variable  in  the 
I  function  equal  to  the  array  that  is  passed  by  reference  and 
I  then  work  exclusively  with  the  lc.il  array. 

V 


H  iinclude  <stream.hxx> 

//  #include  <stdlib.h> 

//  #include  <Primitives.h> 
#include  "ADT_Signature.h" 


/*  This  function  reads  a  text  Tile  with  a  Component's  ADT  operator 
signatures  that  was  created  by  the  Ada  program  that  encodes 
signatures.  A  character-to-number  conversion  is  necessary  to 
load  the  actual  numeric  values  for  all  the  signature  regions  into 
the  corresponding  C++  signature  arrays.  */ 
int  ADT_SIGNATURE::GET_NUMBER(FILE  ‘ifp) 

( 

int  NUM,  C; 
do  { 

NUM  =  0; 

while  (  ((C  =  getc(ifp))  !=  Nn')  &&  (C  !=  EOF)  ) 

NUM  =  (10  *  NUM)  +  (C  -  '0'); 

if(C  =  V) 

return  NUM; 

else 

{  printfC'*"'*  Error:  Occurred  while  reading  signatures  ffomVi"); 
jHintfC  ADT  operator  text  file.Xn"); 

} 

)  while  (1); 


) 


//  Retrieves  ADT  operator  signatures  stored  in  text  files, 
void  ADT_SIGNATURE::GET_SIGNATURES_FROM..FILE 


273 


(int  IN_SIG(].  int  OUT_SIG(].  char  ‘id) 

{ 

FILE*ilp: 

intlND^; 

//  load  input  and  output  signatures  using  the  cqsnator  name 
//  as  the  prefix  and  “.txt"  as  the  suffix 
char  •file_suffix  =  ".txt"; 
char  *fUe_naine; 

file.name  =  new  chart strien(id)  strlen(file_suffix)  +  1]: 
strcpy(iile_name,  id); 
stTcat(file_name,  iile.suffix); 
ifp  =  fc^)en(file_name,  "r"); 


//  get  input  signature 

for  (INDEX  =  0;  INDEX  <  ALL.REGIONS;  ++INDEX) 
IN_SIG(INDEX]  =  GEr_NUMBER(i^); 

//  get  output  signature 

for  (INDEX  =  0;  INDEX  <  ALL.REGIONS;  ++INDEX) 
OUT.SIGflNDEX]  =  GET_NUMBER(ilp); 

fclose(ifp); 


) 


//  Load  ADT  operator  input  and  output  signatures  into  an  array  whose  cells 
//  represent  the  ADT  operators.  Also  store  the  number  of  input  and  output 
//parameters  each  operator  has  in  an  array. 

void  ADT_SIGNATURE::LOAD_ADT_OPERATOR_SIGNATURES  (SIGNATURES  THE.SIGNATUREQ. 

PARAMETERS  OPERATORJOD, 
SB_ADT_COMPONENT  *THE_COMPONENT) 

{ 

int  REGION; 

int  OPERATOR_COUNT  =  0; 

Dictionaiylterator  next_operator  = 

TH  E_COMPONENT->adt_opcrator_iterator(); 

while  ( next_operator.moreData() ) 

{ 

SB_ADT_OPERATOR  ♦THE_ADT_OPERATOR  = 

(SB_ADT_OPERATOR  *)  (Entity  *)  next_opcrator(); 

//  Load  the  number  of  input  and  output  parameters  the  operator 
//has. 

OPERATORJO(OPERATOR_COUNTl  J^UM_OFJNPUT_PARAMETERS  = 
THE_ADT_OPERATOR->num_inputs(); 


OPERATORJO(OPERATOR_COUNT]MJM_OF_OUTPUT_PARAMETERS  = 
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THELADT_OreRATOR->num_ou^ts(); 


//  Load  the  operator  input  and  output  signatures. 

Array  •IN_SIGNATURE  =  new  Array(C)CJntegcs:,  ALL_REGIONS,  1); 
IN_SIGNATURE  =  (Array  •)  (Entity  •) 

THE_ADT_OPERATOR->get_input_signatuiB(); 
H  Load  the  Array  object  into  a  C-t-f  array, 
for  (REGION=l;  REGION  <=ALL_REGIONS;  ++REGION) 

{ 

//  Note:  C-M-  array  goes  from  0  ..  ALL_REGIONS  -1 
THE_SIGNATUREIOPERATOR_CX)UNTlJNPUT_SIG(REGION  - 1)  = 

•  ( (Integer  •)  (Entity  •)  (‘IN.SIGNATURE)  {REGION]); 

) 


Array  *OUT_SIGNATURE  =  new  Aiiay(OC_integer,  ALL_REGIONS.  1); 
OUT.SIGNATURE  =  (Array  •)  (Entity  •) 

THE_ADT_OraRATOR->get_ouq)ut_signatuie(); 

//  Load  the  Array  object  into  a  C++  array. 

for  (REGION=l;  REGION  <=ALL_REGIONS;  ++REGION) 

{ 

//  Note:  C++  array  goes  from  0  ..  ALL_REGIONS  -1 
THE_SIGNATURE[OPERATOR_COUNT].OUTPirr_SIG[REGION  - 1]  = 

•(  (Integer  •)  (Entity  *)  (•OUT.SIGNATURE)  [REGION]); 


OPERATOR_COUNT=  OPERATOR  COUNT  +  1; 

) 


//  Create  an  array  of  linked  lists.  Each  array  cell  corresponds  to 
//  a  query  component  ADT  operator.  Each  linked  list  is  made  up  of 
//  all  software  base  component  ADT  operators  that  match  the  query 
//  component  ADT  operator. 

void  ADT_SIGNATURE::BUILD_OPERATOR_MATCH_UST(SIGNATURES  QUERY_SIGNATURE[], 

LINK  QUERY_OPERATORS[], 

PARAMETERS  QUERY_OPERATOR_IOI], 
SB_ADT_COMPONENT  ‘query  _component, 

SB  ADT_COMPONENT  •next_component) 

{ 

//  class  SIGNATURE  comes  from  Signature.h 
SIGNATURE  SIG; 


//  Create  an  array  that  holds  the  input  and  output  signature  of 
//  each  software  base  component  ADT  operator. 

//  We  don't  know  the  size  in  advance,  so  it  must  be  a  dynamic  array. 
SIGNATURES  *SB_SIGNATURE; 

SB_SIGNATURE=new 

SIGNATURES]  next_comp)onent->num_adt_operiUors()]; 
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//  Create  an  array  that  holds  the  number  of  input  and  output 
//  parameters  of  each  software  base  ccmiponent  ADT  operates. 

//  We  don't  know  the  size  in  advance,  so  it  must  be  a  dynamic  array. 

PARAMETERS  •SB_OPERATOR_IO; 

SB_OPERATOR  JO  =  new 

PARAMETER  S[next_component->num_adt_operat(ssO]; 

//  load  software  base  component  ADT  operator  signatures 

LOAD_ADT_OPERATOR_SIGNATURES(SB_SIGNATURE.  SB.OraRATORJO,  next.componMit); 


Boolean  COMPONENTS_CANNOT_MATCH  =  FALSE; 
int  INDEX  =  0; 

while  ( (INDEX  <  quety_component->num_adt_operatorsO)  AA. 

(!  C0MP0NENTS_CANN0T3IATCH)  ) 

UNKPTR; 
int  MATCH; 

//  go  through  all  software  base  component  ADT  operators  and  store 
//  each  one  that  matches  into  the  query  component  ADT  operator 
//  linked  list.  Note:  if  none  match,  then  the  two  components 
//  do  not  match  so  no  further  processing  is  necessary, 
int  SB_INDEX  =  0; 

Boolean  QUERY_ADT_OPERATOR_HAS_MATCH  =  FALSE; 
while  ( (SB_INDEX  <  next_component->num  adt_operators()) ) 

{ 

//  First,  ensure  the  number  of  input  parameters  for  the  query 
//  component  ADT  operator  is  the  same  as  the  number  of  input 
//  parameters  for  the  software  base  component  ADT  operator, 
if  (QUERY_OPERATVRJOC£NDEX}jnJM_OF_INPUT_PARAMETERS  = 
SB  OPERATOR  IO[SB  INDEX]JfUM  OF  INPUT  PARAMETERS) 

{ 

MATCH  =  SIGMATCH_INPUT_SIGNATURES{ 

QUERY_SIGNATURE[INDEX]JNPUT_SIG, 

SB_SIGNATURE(SB_INDEX)JNPUT_SIG); 


if  (MATCH  ==1) 


//  Now  check  for  a  false  match. 

MATCH  =  SIG.CHECK_FALSE_MATCH( 

QUERY_SIGNATUREI1NDEX].INPUT_SIG, 

SB_SIGNATUREISB_INDEX]JNPUT_SIG); 

if  (MATCH  >=  0)  //  Not  a  false  match 


//  Ensure  the  number  of  ouq)ut  parameters  for  the  query 
//  component  ADT  operator  is  less  than  or  equal  the  number 
//  of  output  parameters  for  the  software  base  component 
//  ADT  operator. 

if  (QUERY_OPER/.TOR JO[INDEX].NUM_OF_OUTPUT_PARAMErERS  <= 
SB_OPERATORJO[SB_INDEX].NUM_OF_OUTPUT_PARAMETERS) 
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MATCH  =  SIGMATCH_OUTPUT_SIGNATURES( 

QUERY_SIGNATURE(INDEX].OUTPUT_SIG, 

SB_SIGNATUREtSBJNDEX].OUTPUT_SIG); 


if  (MATCH  =  1) 

I 

QUERY_ADT_OPERATOR_HAS_MATCH  =  TRUE; 


//  add  matched  software  base  component  ADT  operator  to  linked  list 
if  (QUERY_OPERATORS(INDEX]  =  NULL) 

{ 

//  initialize  list 

PTR  =  new  ELEMENT; 

FIR->SB_OPERATOR  =  SB  JNDEX; 

PTO->NEXT  =  NULL; 
QUERY_OPERATORS(INDEX]  =  PTO; 

) 

else 

I 

H  append  to  list 

PTR->NEXT  =  new  ELEMENT; 

PTR  =  PTR->NEXT; 

PTR->SB_OPERATOR  =  SB_INDEX; 

PTR->NEXT  =  NULL; 

) 

): 

}; 

); 


);  //  if  num  input  params 
SB  INDEX  =  SB  INDEX+1; 

} 


if  (!  QUERY_ADT_OPERATOR_HAS_MATCH) 

//  query  component  operator  does  not  match  any  of  the  software  base 
//  component  operators 

COMPONENTS_CANNOT_MATCH  =  TRUE; 


INDEX  =  INDEX  +  1; 

) 


) 


H  The  "tree  traversal"  treats  the  linked  lists  of  matched  software 

//  base  component  ADT  operators  as  a  tree  rooted  at  the  first 

//  query  component  operator.  Conceptually,  the  tree  is  a  combinatoric 

//  explosion  of  all  possible  mappings  of  one  query  ADT  operator  to 

//  a  valid  software  base  ADT  operator  (so  that  no  software  base  component 

//  ADT  operator  is  used  more  than  once).  The  traversal  does  not  explore 
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//  all  paths.  If  a  node  is  reached  that  selects  a  software  base  compownt 
//  AOT  operator  that  was  already  selected,  no  lower  level  nodes  on  that 
//  path  need  to  be  visited.  Also,  the  tree  is  neva  physically  built, 

//  just  logic^y  traversed.  This  helps  alleviate  potential  mem(»y 
//  problems.  Backtracking  occurs  when  a  query  ADT  operator  (tree  level) 

//  is  reached  that  cannot  ^d  an  unused  software  base  ADT  operator  from 

//  its  linked  list  of  valid  mailings.  Finally,  it  was  necessary  to 

//  make  the  array  QUERY.OPERATORSQ  local  at  each  level  of  recursion  in 

//  order  to  inovide  “memory''  for  the  backpacking.  In  the  worst  case 

//  it  is  estimated  diat  the  number  of  paths  to  be  checked  is  N  factorial 

//  where  N  is  the  total  number  of  software  base  ADT  operators. 

void  ADT_SIGNATURE::TREE_TRAVERSAL  (LINK  QUERY.OPERATORSQ, 

Boolean  ONE_TO_ONE_MAP[], 
int  LEVEL) 

{ 

int  INDEX; 

LINK  •Lv_QUERY_OPERATORS; 

//  We  don't  know  the  size  in  advance,  so  it  must  be  a  dynamic  array. 

Lv_QUERY_OPERATORS  =  new  UNKIMAX.LEVELS]; 

for  (INDEX  =  0;  INDEX  <  MAX.LEVELS;  ++INDEX) 

Lv_QUERY_OPERATORS(INDEX]  =  QUERYjDPERATORSPNDEXl: 

whUe  ( (Lv_QUERY_OPERATORS[LEVELl  !=  NULL)  &&  (!  MATCH.FOUND) ) 

{ 

if  ( !  ONE_TO_ONE_MAP(Lv_QUERY_OPERATORS[LEVELl->SB_OPERATOR) ) 

//  query  operator  maps  to  sb  operator  that  has  not  been 
//  claimed  (mapped  to)  yet 
{ 

ONE.TO  ONE_MAP{(Lv_QUERY_OPERATORS[LEVEL)->SB_OPERATOR)]  =TRUE; 
if  ( (LEVEL  +  1)  <  MAX_LEVELS ) 

{ 

TREE.TRAVERSAL  (Lv_QUERY_OPERATORS,  ONE_TO_ONE_MAP,  LEVEL  +  1); 
//  backtracked  to  this  point  now  will  try  next  sb  oprerator 
//  in  the  list  so  must  reset  current  sb  operator  mapped  to 
//  by  this  query  operator  to  FALSE 

ONE_TO_ONE_MAPl(Lv_QUERY_OreRATORS[LEVEL]->SB_OPERATOR)l  = 

FALSE; 

Lv_QUERY_OPERATORS[LEVEL]  =  Lv_QUERY_OPERATORS[LEVELl->NEXT; 

} 

else 

MATCH.FOUND  =  TRUE; 

} 

else 

//  try  the  next  query  operator  in  the  list 

Lv.QUERY.OPERATORSlLEVEL]  =  Lv_QUERY_OPERATORS[LEVEL]->NEXT; 


} 


) 


//  This  function  attempts  to  find  a  valid  mapping  between  queity  component 
//  ADT  operators  and  the  software  base  component  ADT  operators.  A  1  is 
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//  letumed  if  a  valid  match  is  found,  otherwise  a  0  is  returned. 

int  ADT_SIGNATURE::ADT_MATCH(  LINK  QUERY.OPERATORSQ, 

SB_ADT_COMPONENT  *quay_compoii«it, 
SB  ADT_COMPONENT  •iiext_compofi«it) 

I 

int  LEVEL  =  0; 
int  MATCH  =  0; 

MATCH_FOUND  =  FALSE; 

MAK_LEVELS  =  queiy_component->num_adt_(^>eTators(); 

//  Create  Boolean  array  corresponding  to  the  software  base  component 
//  set  of  ADT  operators.  Initi^y  all  ADT  tqierators  are  false.  As 
//  a  query  component  ADT  operator  is  matched  to  a  software  base 
//  component  ADT  operator,  the  corresponding  Boolean  array  cell  is 
//  set  to  TRUE  indicating  that  software  base  component  ADT  (^rerator 
//  cannot  be  selected  by  another  query  component  ADT  operator. 

//  We  don't  know  the  size  in  advance,  so  it  must  be  a  dynamic  array. 

Boolean  *ONE_TO_ONE_MAP; 

ONE_TO_ONE_MAP  =  new  Boolean[next_component->num_adt_operatorsO]; 
int  INDEX; 

for  (INDEX  =  0;  INDEX  <  next_component->num_adt_operators();  ++INDEX) 
ONE_TO_ONE_MAP[INDEX]  =  FALSE, 


TREE_TRAVERSAL  (QUERY_OPERATORS,  ONE_TO_ONE_MAP,  LEVEL); 

if(MATCH_FOUND) 

MATCH  =  1; 

return  MATCH; 

} 


I* 

Filename  I  Signature.h 
Date  I  30  August  93 
Author  I  Scott  Dolgoff 
System  I  Sun  SPARCstation 
Compiler  I  Sun  C-t-f  2.0 

Descr^tion  I  This  is  a  header  file  for  the  Signature  class. 

I  It  contains  the  various  functions  required  to 
I  determine  whether  a  query  and  software  base 
I  component  signature  match.  It  also  contains 
i  functions  that  calculate  the  signature  closeness 
I  degree  between  the  query  and  software  base 
I  component  signatures. 
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iifildef  _SI<3NATURE_H 

#define _ SIGNATURE_H  //  prevent  multiple  #includes 

4include  <$tdio.h> 

//ADDED 

#define  ALL JIEGIONS  24 
#defiiieINPUT_REGIONS  18 
#dcfjneOUTPUT_REGIONS  17 

//ADDED 

//  set  value  for  a  null  pointer 
#defineNULL  0 


class  SIGNATURE  { 


{uivate: 


int  BEST_CHlLD(int  REGION.NUMBER,  int  SB.SIGQ); 

int  NUM  OF_TYPES_IN_REGION(int  REGION JNUMBER.  int  SB.SIGD); 

int  SUM_OF_CHILDREN_TYPES(int  REGION.NUMBER,  int  SB.SIGQ); 

int  PAR10Tr(intREGION_NUMBER): 

int  GET_NUMBER(FILE  *ifp); 

void  ADDJNSTANTIATION_TO_SIGNA'nJRE(int  REGION.NUMBER, 

intSB.SIGf]); 

void  REMO VE_A  TYPE.FROM  ALL_ANCESTORS(int  REGION.NUMBER, 

intO-SIGIl. 
int  SB  SIGQ); 

void  REMOVE  A  TYPE.FROM.ALL.DESCENDANTS/intREGIONJflJMBER, 

intSB.SIGtl); 


public: 

/*  This  function  reads  a  text  file  with  the  Component  signatures 
that  was  created  by  the  Ada  program  responsible  for  encoding 
signatures.  A  character-to-number  conversion  is  necessary  to 
load  the  actual  numeric  values  for  all  the  signature  regions  into 
the  corresponding  C++  signature  arrays.  •/ 
void  GET.SIGNATURES  (int  TN.SIGQ,  int  OUT.SIGD); 

/*  This  function  determines  whether  a  query  component  input 
signature  and  a  software  base  component  input  signature 
match  each  other.  The  function  returns  a  1  if  a  match  was 
made  and  a  0  if  the  two  signatures  do  not  match.  */ 
int  MATCH_INPUT_SIGNATURES  (int  Q_SIG0.  int  SB.SIGQ); 

/*  This  function  determines  whether  a  query  component  output 
signature  and  a  software  base  component  ou^ut  signature 
match  each  other.  The  function  returns  a  1  if  a  match  was 
made  and  a  0  if  the  two  signatures  do  not  match.  */ 
int  MATCH_OUTPUT_SIGNATURES  (int  OLSIGH,  int  SB.SIGQ); 

/*  This  function  is  only  necessary  for  input  signatures.  It  also 
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cakulates  Liput  signature  closeness  degree  as  a  by  product.  It 
is  necessary  to  calculate  the  closeness  degree  in  this  manner 
when  the  number  of  input  parameters  in  the  query  component  are  not 
equal  to  the  number  of  input  parameters  in  the  software  base  component 
This  hmction  returns  the  value  of  the  closeness  degree  if  a  valid 
match  was  found,  cv  a  -1  if  a  False  Match  was  found.  */ 
int  CHECK_FALSE_MATCH  (int  Q_SIGD.  int  SB.SIGO): 

/*  Calculates  the  ouqiut  signature  closeness  degree.  */ 

int  CAIjC_OUT_CLOSE_DEGREE  (int  Q_SIG[).  int  SB.SIGQ): 


): 

#endif  // _SIGNATURE_H 


I* 

Filename  I  Slgliature.CXX 
Date  1 30  August  93 
Author  I  Scott  Dolgoff 

System  I  Sun  SPARCstadon 

Compiler  I  Sun  C++  3.0 

Description  I  This  is  the  main  module  for  the  Signature  class. 

I  It  contains  the  various  functions  required  to 
I  determine  whether  a  query  and  software  base 
I  component  signature  match.  It  also  contains 
I  functions  that  calculate  the  signature  closeness 
I  degree  between  the  query  and  software  base 
I  component  signatures.  Note  that  the  terms  "nodes” 

I  and  "regions"  are  used  interchangeably  in  the 
I  documentation  below. 

I  TECHNICAL  NOTE:  In  C++  arrays  are  treated  as  pointers  to 
I  the  head  of  the  array.  Therefore,  when  arrays  are  passed 
I  as  function  arguments,  it  is  automatically  a  call  by 
I  reference.  The  only  way  to  protect  the  actual  argument 
I  from  being  changed  is  to  set  a  local  array  variable  in  the 
I  function  equal  to  the  array  that  is  passed  by  reference  and 
I  then  work  exclusively  with  the  local  array. 


#include  <stream.hxx> 

#include  "Signature.h" 

/*  Define  the  region  numbers  for  the  Ada  types.  Note  that  while 
all  Ada  programs  refer  to  the  regions  as  1  ..24,  C++  arrays 
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(tart  at  0  and  thoefore  we  need  to  decranent  all  regions  by 
1  so  we  now  have  a  set  of  regions  ftom  0..23  that  map  to 
the  original  regions  1.. 24.  */ 

«define  GENERIC.PRIVATE  17 

«dcfineGENEiaC_DlSCRETE  18 
«defineGENERIC_RANGE  19 

idefine  GENERIC.  ARRAY  20 

idenneGENERIC_DIGITS  21 
ddejfine  GENERIC.DELTA  22 

«defineGENERIC_ACCESS  23 


#define 

PRIVATE 

16 

fdefine 

DISCRETC 

7 

#define 

INTEGER 

5 

idefine 

RANGE 

4 

idefine 

NATURAL 

1 

#define 

POSITIVE 

0 

Mefine 

ENUMERATION 

idefine 

BOOLEAN 

2 

#define 

CHARACTER 

#define 

DIGITS 

15 

#define 

FLOAT 

14 

#define 

DELTA 

13 

#define 

FIXED 

12 

#define 

ARRAY 

11 

#define 

STRING 

10 

#define 

ACCESS 

9 

#defiiie 

RECORD 

8 

/*  This  function  reads  a  text  file  with  the  Component  signatures 
that  was  created  by  the  Ada  program  responsible  for  encoding 
signatures.  A  character-to-number  conversion  is  necessary  to 
load  the  actual  numeric  values  for  all  the  signature  regions  into 
the  corresponding  C++  signature  arrays.  */ 
int  SIGNATURE::GET_NUMBER(FILE  *ilip) 

1 

intNUM,  C; 
do  { 

NUM  =  0; 

while  (  ((C  =  getc(ifp))  !=  \n')  &&  (C  !=  EOF) ) 

NUM  =  (10  •  NUM)  +  (C  -  ’O'); 

if(C  =  V) 

return  NUM; 

else 

{  printfC'***  Enor;  Occurred  while  reading  signatures  from'n"); 
printfC  Signature.dat  text  file.Nn"); 

) 

)  while  (1); 


) 
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/*  This  function  selects  the  child  that  will  provide  the  shortest 
downward  path  when  trying  to  selea  the  closest  matching 
software  base  component  output  parameter.  It  returns  the 
Region  value  of  the  child,  or  -1  if  the  current  node  is  a  leaf 
node  and  therefcne  has  no  children.  */ 
int  SIGNATURE::BEST  CHILD(int  REGIONJOJMBER.  int  SB_SIG{]) 
I 

ctmst  int  NO_CHILDREN  =  -1; 

switch  (REGION_NUMBER) 

{ 

casePOSrnVE: 

return  NO_CHILOR£N; 
break; 

case  NATURAL: 

return  POSITIVE; 
break; 

case  RANGE: 

return  NO.CHILDREN; 
break; 

case  INTEGER: 

if(SB_SIG[RANGE]>0) 
return  RANGE; 
else 

return  NATURAL; 
break; 

case  BOOLEAN: 

return  NO_CHILDREN; 
break; 

case  CHARACTER: 

return  NO.CHILDREN; 
break; 


case  ENUMERATION: 

if  (SB.SIGICHARACTER)  >  0) 
return  CHARACTER; 
else 

return  BOOLEAN; 
break; 


case  DISCRETE: 

if  (SB_SIG[ENUMERATION]  >  0) 
return  ENUMERATION; 
else 

remrn  INTEGER; 
break; 

case  ACCESS: 
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retum  NO_CHILDREN; 
break; 


1 


case  RECORD; 

return  NO_CHILDREN; 
break; 

case  STRING: 

return  NO_CHIU)R£N; 
break; 

case  ARRAY: 

retum  STRING; 
break; 

case  FIXED: 

return  NO.CHILDREN; 
break; 

case  DELTA: 

retum  FIXED; 
break; 

case  FLOAT: 

retum  NO_CHILDREN; 
break; 

case  DIGITS: 

retum  FLOAT; 
break; 

case  PRIVATE: 

retum  NO.CHILDREN; 
break; 

default 

printfC'**  Error  in  SIGNATURE::BEST_CHILDO\n"); 

retum  -2; 

break; 

) 


/*  This  function  returns  the  total  number  of  type  instances  contained  by 
all  the  children  of  a  particular  node.  */ 

int  SIGNATURE;;SUM_OF_CHILDREN_TYPES(int  REGION_NUMBER.  int  SB.SIGt]) 

const  int  NO.CHILDREN  =  0; 

switch  (REGION  NUMBER) 

{ 
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case  POSITIVE: 

return  NO_CHILDREN; 
l»eak: 

case  NATURAL: 

return  SB.SIGfPOSTITVE]; 
break; 

case  RANGE: 

return  NO_CHILDREN; 
break; 

case  INTEGER: 

return  (SB_SIG(RaNGE]  +  SB_SIGINATURALJ); 
break; 

case  BOOLEAN: 

return  NO_CHILDREN; 
break; 

case  CHARACTER: 

return  NO_CHILDREN; 
break; 


case  ENUMERATION: 

return  (SB_SIG[BOOLEAN]  +  SB.SIGICHARACTER]); 
break; 


case  DISCRETE: 

return  {SB_SIG[INTEGERJ  +  SB.SIGrENUMERATlON]); 
break; 


case  ACCESS: 

return  NO_CHILDREN; 
break; 

case  RECORD: 

return  NO.CHILDREN; 
break; 

case  STRING: 

return  NO.CHILDREN; 
break; 

case  ARRAY; 

return  SB_SIGISTRING1; 
break; 

case  FIXED; 

return  NO_CHILDREN; 
break; 

case  DELTA: 

return  SB_SIG[FIXEDJ; 
break; 
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case  FLOAT: 

return  NO_CHILDREN; 
break; 

case  DIGITS: 

return  SB_SIG(FLOATl; 
break; 

case  PRIVATE: 

return  NO_CHILDREN; 
break; 

case  GENERIC_PRIVATE: 

return  NO_CHILDREN; 
break; 

case  GENERIC.DISCRETE; 

return  NO_CHILDREN; 
break; 

case  GENERIC.RANGE; 

return  NO_CHILDREN; 
break; 

case  GENERIC_ARRA  Y : 

return  NO_CHILDREN; 
break; 

case  GENERIC_DIGrrS: 

return  NO_CHILDREN; 
break; 

caseGENERIC.DELTA: 

return  NO.CfflLDREN; 
break; 

case  GENERIC_ACCESS: 

return  NO.CHILDREN; 
break; 


default: 

printfC'**  Error  in  SIGNATURE::SUM_OF_CHILDREN..()\n"); 

return  -2; 

break; 


) 


) 
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/*  This  f^tion  returns  the  parent  of  a  specified  Region.  The 
Region  ccMTcsponds  to  a  subtype  in  the  Ada  subtype  hierarchy.  *! 
int  SIGNA’njRE::PARENT(intREGION_NUMBER) 

{ 


switch  (REGION .NUMBER) 

{ 

casePOSrnVE: 

return  NATURAL; 

Iseak; 

case  NATURAL: 

return  INTEGER: 
break; 

case  RANGE: 

return  INTEGER; 
break; 

case  INTEGER: 

return  DISCRETE; 
break; 

case  BOOLEAN: 

return  ENUMERATION; 
break; 

case  CHARACTER: 

return  ENUMERATION; 
break: 


case  ENUMERATION: 

return  DISCRETE; 
break; 


case  DISCRETE: 

return  GENERIC_PRIVATE; 
break; 

case  ACCESS: 

return  GENERIC_PRrVATE; 
break; 

case  RECORD: 

return  GENERIC_PRrVATE; 
break; 

case  PRIVATE: 

return  GENERIC_PRrVATE; 
break; 

case  STRING: 

return  ARRAY; 
break; 
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case  ARRAY: 

return  GENERIC_PRIVATE; 

Iseak; 

case  FIXED: 

return  DELTA; 
taeak: 

case  DELTA: 

return  GENERIC_PRIVATE; 
break; 

case  FLOAT: 

return  DIGITS; 
break; 

case  DIGITS: 

return  GENERIC_PRIVATE; 
tneak; 

case  GENERIC.PRIVATE: 

return  -1;  //  -1  is  delimeter  that  deHnes  the 
break:  //  top  of  the  subtype  hierarchy 

default 

printfC'**  Error  in  SIGNATURE::PARENTONn''): 

return  -2; 

break; 


} 


) 


/*  This  function  adds  a  type  instance  to  each  of  the  ancestors 
of  the  specified  region  in  the  output  type  hierarchy. 

This  is  done  when  a  query  parameter  is  matched  to  a  software 
base  component  generic  parameter.  By  instantiating  the 
generic,  we  make  it  easier  to  perform  later  type  closeness 
calculations.  */ 

void  SIGNATURE;;ADDJNSTANT[ATION_TO_SIGNATURE(int  REGION.NUMBER, 

int  SB_SIG[]) 


( 


switch  (REGION J«JMBER) 

{ 

case  POSITIVE; 

SB_SIG(NATURAL]  ++; 
SB_SIG[INTEGER1  ++; 
SB_SIG[DISCRErE]  ■►+; 
break; 

case  NATURAL: 

SB.SIGPNTEGER]  ++; 
SB_SIG[DISCRErE]  ++; 
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break; 


case  RANGE: 

SB  SIGfINTEGER] ++; 
SB_SIG[DISCRErEl  ++; 
break; 

case  INTEGER: 

SB_SIG[DISCRETE1  ++; 
break; 

case  BOOLEAN; 

SB_SIG[ENUMERATIONl  ++; 
SB_SIG[DISCREnrEl  ++; 
break; 

case  CHARACTER: 

SB_SIG[ENUMERATION]  ++; 
SB_SIG[DISCRETE]  ++; 
break; 

case  ENUMERATION: 

SB_SIG(DISCRETE]  ++; 
break; 


case  DISCRETE: 

H  top  of  hierarchy  so  no  ancestors 
break; 


case  ACCESS: 

//  top  of  hierarchy  so  no  ancestors 
breaJc; 

case  RECORD: 

//  top  of  hierarchy  so  no  ancestors 
break; 

case  STRING: 

SB_SIG[ARRAY]  ++; 
break; 

case  ARRAY; 

//  top  of  hierarchy  so  no  ancestors 
break; 

case  FIXED: 

SB_SIG[DELTAJ  ++; 
break; 

case  DELTA: 

//  top  of  hierarchy  so  no  ancestors 
break; 

case  FLOAT: 

SB_SIG[DIGITS1  ++; 
break; 
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case  DIGITS: 

//  top  of  hierarchy  so  no  ancestors 
biet^; 

case  PRIVATE; 

//  top  of  hierarchy  so  no  ancestors 
break; 


default 

piintf(”**  Error  in  SIGNATURE  ;ADD_INSTAN^lATION_TO_SIGNATURE(]^n•*); 
break; 


) 


} 


/*  This  function  removes  a  type  instance  from  all  ancestor  nodes  of  the 
specified  region  in  both  the  query  and  software  base  output 
signatures.  Each  ancestor  must  have  a  type  instance  because  output 
parameter  patterns  force  a  type  instance  in  all  ancestors  of  each 
output  parameter  type.  */ 

void  SIGNATURE::REMOVE_A_TYPE_FROM_ALL_ANCESTORS(int  REGION.NUMBER, 

intQ_SIG[], 
intSB  SIGQ) 

( 


switch  (REGION_NUMBER) 

{ 

case  POSlllVE: 

SB_SIG[NATURAL]  -; 
SB_SIG[INTEGER]  -; 
SB_SIG[DISCRETE]  -; 
Q_SIG[NATURALJ  -; 
Q_SIGPNTEGER]  -; 
Q_SIG[DISCRETE]  -; 
break; 

case  NATURAL: 

SB_SIG[INTEGER]  -; 
SB_SIG[DISCRETE]  -; 
Q_S1G[INTEGER]  -; 
Q_SIG[DISCRETEJ  -; 
break; 

case  RANGE: 

SB_SIG(INTEGERI  -; 
SB_SIG[DISCRETE]  -; 
Q_SIGtINTEGER]  -; 
Q_SIGPISCRETE]  ~; 
break; 
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case  INTEGER; 

SB_SIG[DISCRETE] 

Q_SlGtDISCRErE) 

break; 

case  BOOLEAN: 

SB.SIGfENUMERAnONJ 

SB_SIG[DISCRETE] 

Q_SIG{ENUMERATIONl 

Q_SIG[DISCRErE] 

break; 

case  CHARACTER: 

SB.SIGfENUMERATTON] 

SB_SIG(DISCRErE] 

(i.SIG[ENUMERATIONl 

Q_SIG[DISCRETE1 

break; 

case  ENUMERATION: 

SB_SIG[DISCRETE] 
Q_SIG[DISCRETE]  -; 
break; 


case  DISCRETE: 

//  top  of  hierarchy  so  no  ancestors 
break; 


case  ACCESS: 

//  top  of  hierarchy  so  no  ancestors 
break; 

case  RECORD: 

//  top  of  hierarchy  so  no  ancestors 
break; 

case  STRING: 

SB_SIG[  ARRAY]  -; 

Q_SIG(  ARRAY]  -; 
break; 

case  ARRAY' 

//  top  of  hierarchy  so  no  ancestors 
break; 

case  FIXED: 

SB_SIG[DELTA] 
Q_SIG{DELTA]  -; 
break; 

case  DELTA: 

//  top  of  hierarchy  so  no  ancestors 
break; 

case  FLOAT: 
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SB_SIG(DIGrrS] 

Q_SIGCDIGrrSl 

l»«ak; 

case  DIGITS: 

//  top  of  hierarchy  so  no  ancestors 
break; 

casenUVATE: 

//  top  of  hierarchy  so  no  ancestors 
break; 

default 

piintfC'**  Error  in  SIGNATURE;REMOVE_A_TYPE_fROM_ALLjU^CESTORS0'n"); 
tveak; 


/*  This  function  removes  a  type  instance  from  all  descendant  nodes  of  the 
specified  region  in  both  the  query  and  software  base  input 
signatures.  Each  descendant  must  have  a  type  instance  because  input 
parameter  patterns  force  a  type  instance  in  all  descendants  of  each 
input  parameter  type.  */ 

void  SIGNATURE.;REMOVE_A  'm>E_FROM_ALL_DESCENDANTS(int  REGION JftJMBER. 

intSB.SIGD) 

i 


switch  (REGION  NUMBER) 

( 

casePOSrnVE: 


case  NATURAL: 


case  RANGE: 


case  INTEGER: 


//  leaf  node  so  no  descendants 
break; 


SB_SIG[POSrnVE]  -; 
break; 


//  leaf  node  so  no  descendants 
break; 


SB_SIG[POSrnVE]  -; 
SB_SIG[NATURAL1  -; 
SB_SIG[RANGE] 
break; 


case  BOOLEAN; 


//  leaf  node  so  no  descendants 
break; 
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case  CHARACTER: 

//  leaf  node  so  no  descendants 
txeak; 

case  ENUMERATION: 

SIG[BOOLEAN] 

SB_SIG[CHARACreR] 

break; 


case  DISCRETE: 

SB  SIG(POSrnVE] 

SB_SIGINATURAL] 

SB_SIG[RANGE] 

SB  SIGONTCGER] 

SB_SIG[BOOLEAN] 

SB_SIG[CHARACTER] 

SB.SIGCENUMERATION] 

break; 


case  ACCESS: 

//  leaf  node  so  no  descendants; 
break; 

case  RECORD: 

//  leaf  node  so  no  descendants; 
break; 

case  PRIVATE: 

H  leaf  node  so  no  descendants; 
break; 

case  STRING: 

//  leaf  node  so  no  descendants; 
break; 

case  ARRAY: 

SB_SIG[STRING]  -; 
break; 

case  FIXED: 

//  leaf  node  so  no  descendants; 
break; 

case  DELTA: 

SB_SIG[FIXED1  -; 
break; 

case  FLOAT: 

//  leaf  node  so  no  descendants; 
break; 

case  DIGITS; 

SB.SIGfFLOATl  -; 
break; 

case  GENERIC.PRTVATE: 
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SB_SIG{POSnTVE] 

S8_SIG(NATURAL] 

SB_SIG(RANGE] 

SB_aG(lNTEGERl 

SB_aGCBCX)LEAN] 

SB_SIG{CHARACIER] 

SB_SIG(ENUMERATIONl 

SB_SIG(DISaiETE] 

SB.SIGlACXrESSI 

SB_SIG[RECORD] 

SB_SIG[PRIVATE1 

SB.SIGIARRAYI 

SB_SIG{STRING] 

SB_SIG[DELTA1 

SB_SIG(FIXED] 

SB_SIG[DIG1TS1-; 

SB_aG[FLOATl 

break; 


default: 

printfC  **  Error  in  SIGNATURE:: REMO VE_A_TYPE_ALL_DESCENDANTS(y«"): 
break; 


) 


) 


H *«•««»•*••**•*•*********•«*«**«*«*•«*«**«*••*•**«•***•*••*•••• 

II****  PUBUC  FUNCTIONS  •••• 

n  *•«««»*»«**«•*«««**««•**«*********«*******«•***•**«*«********• 


!*  This  function  reads  a  text  file  with  the  Component  signatures 
that  was  created  by  the  Ada  program  responsible  for  encoding 
signatures.  A  character-to-number  conversion  is  necessary  to 
load  the  actual  numeric  values  for  all  the  signature  regions  into 
the  corresponding  C++  signature  arrays.  •/ 
void  SIGNATURE;GET_SIGNATURES 

(int  IN_SIG[].  int  OUT_SIG[]) 

{ 

FILE*ifp; 

intlND^; 

ifp  =  fopenC'Signatuie.dat",  "r"); 

//  get  input  signature 

for  (INDEX  =  0;  INDEX  <  ALL.REGIONS;  ++INDEX) 
IN_SIG[INDEX]  =  GET_NUMBER(ifp); 


//  get  ouqjut  signature 

for  (INDEX  =  0;  INDEX  <  ALL.REGIONS;  ++INDEX) 
OUT_SIG(INDEX]  =  GET_NUMBER(ift)); 
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fck)se(ifp); 


) 


/*  This  function  detennines  whether  a  query  component  input 
signature  and  a  software  base  component  input  signature 
match  each  other.  The  function  returns  a  1  if  a  match  was 
made  and  a  0  if  the  two  signatures  do  not  match.  */ 
int  Sa[GNATURE::MATCH_INPUT_SIGNATURES  (int  O-SIGO.  int  SB_S1G(]) 
{ 

int  INDEX,  MATCH: 


MATCH  =  1; 

INDEX  =  0; 

while  (MATCH  ==  1  &&  INDEX  <  INPUT.REGIONS) 

{ 

if(Q_SIG[INDEXl<=SB  SIG[INDEX]) 

INDEX  =  INDEX  +  1; 

) 

else 

MATCH  =  0; 

) 

} 

return  MATCH: 

} 


/*  This  function  determines  whether  a  query  component  output 
signature  and  a  software  base  component  ouqjut  signature 
match  each  other.  The  function  returns  a  1  if  a  match  was 
made  and  a  0  if  the  two  signatures  do  not  match.  */ 
int  SIGNATURE::MATCH_OUTPUT_SIGNATURES  (int  CLSIGQ,  int  SB.SIGIJ) 

{ 

int  INDEX,  MATCH,  EXCESS: 

int  GENERIC_PRIVATE_NUM,  GENERIC_DISCRETE_NUM, 

GENERIC_RANGE_NUM,  GENERIC.  ARRAY.NUM,  GENERIC.DIGITS JIUM, 
GENERIC_DELTA_NUM,  GENERIC.ACCESS.NUM: 


MATCH  =  1: 

GENERIC_PRIVATEJ«JM  =  SB_SIG(GENERIC_PRIVATE]; 
GENERIC_DISCRETE_NUM  =  SB_SIG(GENERIC_DISCRETE]: 
GENERIC_RANGEJfUM  =  SB.SIGIGENERIC.RANGE]: 
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OENEitlC_ARRAY_NUM  =  SB_aG(GENERIC_ARRAy]: 
0EKEiaC_DiaiTSJ4UM  »  SB_aC(GENERIC_l»GlTS]: 
GfiNERICJ[«LT>LNUM  =  SB_aG{GENERIC J^TA); 
GENERIC_ACCESS_NUM  =  SB_aG(GENERIC  J^CCESSl; 

INDEX  =  0; 

while  (MATCH  =  1  &&.  INDEX  <  OimHrr_REGIC»<S) 

EXCESS  =  Q_aG{INDEXl  -  SB_aG(INDEX]; 
if  ((2_MG11NDEX]  <=  SB.MGnNDEX]) 

{ 

INDEXES  INDEX 

1 

eke 

{ 

MATCH  =  0: 
switch  (INDEX) 

case  POSITIVE: 

if  (GENERIC_DISCRETE_NUM  >  0) 

{ 

//  reduce  number  of  generics  that 

//  can  now  be  instantiated 

if  (GENERIC_DISCRETE_NUM  >=  EXCESS) 

{ 

MATCH  =  1: 

GENERIC_D1SCRETE_NUM  = 
GENERIC_DISCRETE_NUM  -  EXCESS; 

EXCESS  =0; 

) 

eke 

{ 

EXCESS  =  EXCESS  -  GENERIC.DISCRETE.NUM; 
GENERIC_DISCRETE_NUM  =  0; 

) 

) 


if  ( (EXCESS  <=  GENERIC_PRrVATE_NUM)  && 
(EXCESS  >  0) ) 

{ 

//  reduce  number  of  generics  that 
//  can  now  be  instantiated 
MATCH  =  1; 

GENERIC_PRIVATE_NUM  = 
GENERIC_PRIVATEjaUM  -  EXCESS; 
EXCESS  =  0; 

) 

if  (MATCH  =1) 

{ 

//  need  to  "instantiate''  the  software  base 
//  signature  with  the  matched  query  parameter 
//  to  use  for  later  type  closeness  calculations 


SB_SIG[INDEX1  =  SB_SIG(1NDEX)  + 1; 
ADD_INSTANmTl(W_TO_SIGNATlJRE(INEHEX.  SB.SIG); 
INDEX  =  INDEX -t-l; 

) 

break; 

case  NATURAL; 

if(GENERIC_DISCRETE  NUM>0) 

i 

//  reduce  number  of  generics  that 

//  can  now  be  instantiated 

if  (GENERIC  DISCRETE  NUM>=  EXCESS) 

{ 

MATCH  =  1: 

GENERIC  DISCRETEJ4UM  = 
GENERIC_DISCRETE_NUM  -  EXCESS; 

EXCESS  =  0; 


else 

{ 

EXCESS  =  EXCESS  -  GENERIC_DISCRETE_NUM; 
GENERIC_DISCRETE_NUM  =  0; 

) 


if  ( (EXCESS  <=  GENERIC_PRrVATE_NUM)  && 

(EXCESS  >0)) 

( 

II  reduce  number  of  generics  that 
//  can  now  be  instantiated 
MATCH  =  1; 

GENERIC_PRIVATE_NUM  = 
GENERIC_PRIVATE_NUM  •  EXCESS; 

EXCESS  =0; 

) 

if(MATCH=  1) 

{ 

H  need  to  "instantiate"  the  software  base 
//  signature  with  the  matched  query  parameter 
//  to  use  for  later  type  closeness  calculations 
SB_SIG(INDEX]  =  SB_SIG(INDEX]  + 1; 
ADD_INSTANTIATION_TO_SIGNATURE(INDEX,  SB_SIG); 
INDEX  ^  INDEX +1; 

) 

break; 
case  RANGE: 

if  (GENERIC_RANGEJ<UM  >  0) 

{ 

//  reduce  number  of  generics  that 
//  can  now  be  instantiated 
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if  (GeNERIC_RANGE_NUM  >«  EXCESS) 

{ 

MATCH  =  1; 

GENERIC_RANGE_HUM  = 
GENERIC_RANGEJ4UM  -  EXCESS; 
EXCESS  =  0; 


else 

{ 

EXCESS  -  EXCESS  -  GENERIC_RANGEJ4UM; 
GENERIC JRANGEJfUM  =  0; 

I 

) 

if  ( (GENERIC_DISCRETE_NUM  >  0) 

(EXCESS  >0)) 

{ 

//  reduce  number  of  generics  that 

//  can  now  be  instantiated 

if  (GENERIC_DISCRETE_NUM  >=  EXCESS) 

{ 

MATCH  =  1; 

GENERIC_DISCRETE_NUM  = 
GENERIC.DISCRETC  J<UM  -  EXCESS; 
EXCESS  =  0; 


else 

{ 

EXCESS  =  EXCESS  -  GENERIC_DISCRErEJNUM; 
GENERIC_DISCRETEJIUM  =  0; 

} 


if  ( (EXCESS  <=  GENERIC.PRTVATEjmi)  && 
(EXCESS  >  0) ) 

( 

//  reduce  number  of  generics  that 
//  can  now  be  instantiated 
MATCH  =  1; 

GENERIC_PRIVATE_NUM  = 
GENERIC_PRrVATE_NUM  -  EXCESS; 
EXCESS  =  0; 


if(MATCH  =  l) 

( 

//  need  to  "instantiate”  the  software  base 
//  signature  with  the  matched  qu^  parameter 
//  to  use  for  later  type  closeness  calculations 
SB.SIGflNDEX]  =  SB_SIG[1NDEX]  + 1; 
ADD.rNSTANnATlON.TO.SIGNATUREaNDEX,  SB.SIG); 
INDEX  =  INDEX +  1; 

) 
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break: 


caae  INTEGER: 


if  (GENERIC  DISCRETE_NUM>0) 

I 

//  reduce  number  of  generics  that 
//  can  now  be  instantiated 
if  (GENERIC  J)ISCRETE_NUM  >=  EXCESS) 
i 

MATCH  =  1; 

GENERIC_D1SCRETE_NUM  = 
GENERIC_DISCRETE  JIUM  -  EXCESS; 
EXCESS  =  0; 


else 

I 

EXCESS  =  EXCESS  -  GENERIC_DISCRETEJ«JM; 
GENERIC_DISCRETE_NUM  =  0; 

1 


if  ( (EXCESS  <=  GENERIC_PRIVATE_NUM)  && 
(EXCESS  >  0) ) 

{ 

//  leduce  number  of  generics  that 
//can  now  be  instantiated 
MATCH  =  1; 

GENERIC.PRTV ATE_NUM  = 

GENERIC  J>RIVATE_NUM  -  EXCESS; 
EXCESS  =0; 


if(MATCH  =  l) 

t 

//  need  to  "instantiate"  the  software  base 
//  signature  with  the  matched  queiy  parameter 
//  to  use  for  later  type  closeness  calculations 
SB_SIG[INDEX]  =  SB_SIG(INDEX]  +  1; 
ADD_INSTANTIATION_TO_SIGNATURE(INDEX,  SB  SIG); 
INDEX  =  INPEX  +  1; 

} 

tneak: 

caseB(X>LEAN; 

if  (GENERIC  DISCRETEJfUM>0) 

{ 

//  reduce  number  of  genres  that 

//  can  now  be  instantiated 

if  (GENER1C_DISCRETE_NUM  >=  EXCESS) 

{ 

MATCH  =1; 
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GENERIC_PISCRETE jmi  - 
GENERIC_DISCRETE_NUM  -  EXCESS; 
EXCESS  =  0; 


else 

I 

EXCESS  =  EXCESS  -  GENERIC.DBCRETEJrtJM; 
GENERIC_DISCRETE_NUM  =  0; 

} 


if  ( (EXCESS  <=  GENERIC.rarVA'IE.NUM)  &A. 
(EXCESS  >0)) 

II  reduce  number  of  generics  that 
//  can  now  be  instantiated 
MATCH  =  1; 

GENERIC_PRIVATE_NUM  = 
GENERIC_PRIVATE_NUM  -  EXCESS; 
EXCESS  =  0; 


if  (MATCH— 1) 

{ 

//  need  to  "instantiate"  the  software  base 
//  signature  with  the  matched  query  parameter 
//  to  use  for  later  type  closeness  calculations 
SB  SIG(IKDEX]  =  SB_SIG{INDEX]  +  1; 

ADD JNSTANTUTION_TO_SIGNATURE(INDEX.  SB.SIG); 
INDEX  =  INDEX +  1; 

) 

break; 

e  CHARACTER: 

if  (GENERIC_DISCRETE_NUM  >  0) 

( 

//  reduce  number  of  generics  that 

//  can  now  be  instantiated 

if  (GENERIC_DISCRETE_NUM  >=  EXCESS) 

{ 

MATCH  =  1; 

GENERIC_DISCRETE_NUM  = 
GENERIC_DISCRETE_NUM  -  EXCESS; 

EXCESS  =  0; 


( 

EXCESS  =  EXCESS  -  GENERIC_DISCRErE_NUM; 
GENERIC  DISCRETE  NUM=0; 

) 


else 


if  ( (EXCESS  <=  GENERIC_reiVATE_NUM)  && 

(EXCESS  >0)) 

{ 

//  reduce  number  of  generics  that 
//  can  now  be  instantiated 
MATCH  =  1; 

GENERIC_WaVATE_HUM  = 
GENERIC_PRIVATE_NUM  -  EXCESS; 

EXCESS  =  0; 

) 

if(MATCH=l) 

I 

//  need  to  "instantiate''  the  software  base 
//  signature  with  the  matched  quay  parameta 
//  to  use  for  later  type  closeness  calculations 
SB_SIG(INDEX1  =  SB.SIGflNDEX]  + 1; 
ADD_INSTANTTATION_TO_SIGNATURE(INDEX,  SB_SIG); 
INDEX  =  INDEX  +  1; 

) 

break; 

case  ENUMERATION: 

if  (GENERIC_DISCRETE_NUM  >  0) 

{ 

//  reduce  number  of  generics  that 

//  can  now  be  instantiated 

if  (GENERIC_DISCRETE_NUM  >=  EXCESS) 

{ 

MATCH  =  1; 

GENERIC_DlSCRErE_NUM  = 
GENERIC_D1SCRETE_NUM  -  EXCESS; 

EXCESS  =  0; 


else 

{ 

EXCESS  =  EXCESS  -  GENERIC_DISCRETE_NUM; 
GENERIC.DISCRETE JWM  =  0; 

} 

} 


if  ( (EXCESS  <=  GENERIC.PRIVATE.NUM)  && 
(EXCESS  >  0) ) 

{ 

//  reduce  number  of  generics  that 
//  can  now  be  instantiated 
MATCH  =  1; 

GENERIC_PRIVATE JWM  = 
GENERIC_PRIVATE_NUM  -  EXCESS; 
EXCESS  =  0; 
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if(MATCH=l) 

{ 

//  need  to  "instantiate"  the  software  base 
//  signature  with  the  matched  query  parameter 
//  to  use  for  latw  type  closeness  calculations 
SB_SIG(1NDEX1  =  SB_SIG[INDEX]  + 1: 
ADD_INSTANTIATION_TO_SIGNATURE(INDEX.  SB.SIG); 
INDEX  =  INDEX  4^  1; 

} 

break; 

case  DISCRETE: 

if  (GENERIC_RANGE_NUM  >  0) 

{ 

//  reduce  numba  of  generics  that 

//  can  now  be  instantiated 

if  (GENERIC_RANGE_NUM  >=  EXCESS) 

{ 

MATCH  =  1; 

GENERIC_RANGE_NUM  = 

GENERIC_RANGE_NUM  -  EXCESS; 

EXCESS  =  0; 


else 

{ 

EXCESS  =  EXCESS  -  GENERIC_RANGE_NUM; 
GENERIC_RANGE_NUM  =  0; 

) 


if  ( (GENERIC.DISCRETE.NUM  >  0)  && 
(EXCESS  >  0) ) 

//  reduce  number  of  generics  that 

//  can  now  be  instantiated 

if  (GENERIC_DISCRETE_NUM  >=  EXCESS) 

MATCH  =1; 

GENERIC_DISCRETE _NUM  = 
GENERIC_DISCRETE_NUM  -  EXCESS; 
EXCESS  =0; 


else 

I 

EXCESS  =  EXCESS  -  GENERIC_DISCRETE_NUM; 
GENERIC_DISCRETE_NUM  =  0; 

) 


if  ( (EXCESS  <=  GENERIC_PRIVATE_NUM)  && 
(EXCESS  >0)) 
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//  reduce  number  of  generics  that 
//  can  now  be  instantiated 
MATCH  =  1; 

GENERIC_PRIV  ATE.NUM  = 
GENERIC_PRIVATE_NUM  -  EXCESS; 
EXCESS  =0; 


if  (MATCH  =  1) 

//  need  to  "instantiate"  the  software  base 
//  signature  with  the  matched  query  parameter 
//  to  use  for  later  type  closeness  calculations 
SB.SIGIINDEX]  =  SB_SIG[INDEX]  1; 
ADD_INSTANTIATION_TO_SIGNATURE(INDEX,  SB.SIG); 
INDEX  =  INDEX  +  1: 

) 

break; 


case  ACCESS; 

if  (GENERIC_ACCESS_NUM  >  0) 

//  reduce  number  of  generics  that 

//  can  now  be  instantiated 

if  (GENERIC_ACCESS_NUM  >=  EXCESS) 

{ 

MATCH  =  1; 

GENERIC_ACCESS_NUM  = 
GENERIC_ACCESS_NUM  -  EXCESS; 
EXCESS  =  0; 


else 

{ 

EXCESS  =  EXCESS  -  GENERIC_ACCESS_NUM; 
GENERIC_ACCESS_NUM  =  0; 

} 


if  ( (EXCESS  <=  GENERIC_PRIVATE_NUM)  &A 
(EXCESS  >  0) ) 

I 

//  reduce  number  of  generics  that 
//  can  now  be  instantiated 
MATCH  =  1; 

GENERIC_PRIVATE_NUM  = 
GENERIC_PRIVATE_NUM  -  EXCESS; 
EXCESS  =  0; 


if  (MATCH  =1) 

//  need  to  "instantiate"  the  software  base 
//  signature  with  the  matched  query  parameter 
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//  to  use  fat  Ister  type  cloceness  calculsdons 
SB_S1G(INDEX1  =  SB.SIGHNDEX]  + 1; 
ADD_INSTANTIATION_TO_SIGNATURE(INDEX,  SB.SIG); 
INDEX  =  INDEX +  1: 

) 

break: 

case  RECORD; 

if  ( (EXCESS  <=  GENERIC_PRIVATE_NUM)  && 

(EXCESS  >  0) ) 

{ 

//  reduce  number  of  generics  that 
//  can  now  be  instantiated 
MATCH  =  1; 

GENERIC_PRIVATE_NUM  = 
GENERIC_PRIVATE_NUM  -  EXCESS; 

EXCESS  =  0; 

) 

if  (MATCH  =  1) 

{ 

//  need  to  "instantiate”  the  software  base 
//  signature  with  the  matched  query  parameter 
//  to  use  for  later  type  closeness  calculations 
SB_SIG[INDEX1  =  SB.SIGHNDEXl  + 1; 
ADD_INSTANTIATION_TO_SIGNATURE(INDEX.  SB_SIG); 
INDEX  =  INDEX  +  1; 

} 

tn-eak; 

case  PRIVATE: 

if  (GENERIC  PRIVATE_NUM>0) 

{ 

U  reduce  number  of  generics  that 

//  can  now  be  instantiated 

if  (GENERIC_PRI  VATE.NUM  >=  EXCESS) 

{ 

MATCH  =  1; 

GENERIC_PRIVATE_NUM  = 
GENERIC_PRIVATE_NUM  -  EXCESS; 

EXCESS  =0; 


else 

{ 

EXCESS  =  EXCESS  -  GENERIC.PRIV ATE JrtJM; 
GENERIC J»RIVATE_NUM  =  0; 

) 

) 

if  (MATCH  =1) 

{ 

//  need  to  "instantiate”  the  software  base 
//  signature  with  the  matched  query  parameter 
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//  to  use  for  later  type  closeness  calculations 
SB_SIG[INDEX]  =  SB_SIG[INDEX1  + 1; 
ADD_INSTANTlA'nON_TO_SIGNATURE(INDEX,  SB.SIG); 
INDEX  =  INDEX +  1; 

} 

break; 

case  STRING: 

if  (GENERIC_ARRA  Y JWM  >  0) 

{ 

//  reduce  number  of  generics  that 

//  can  now  be  instantiated 

if  (GENERIC. ARRAY.NUM  >=  EXCESS) 

MATCH  =  1; 

GENERIC.AXRAY.NUM  = 

GENERIC_ARRAY_NUM  -  EXCESS; 

EXCESS  =  0; 


else 

f 

EXCESS  =  EXCESS  -  GENERIC.ARRAY  JJUM; 
GENERIC_ARRAY_NUM  =  O. 

) 


if  ( (EXCESS  <=  GENERIC.PRIVATE JJUM)  && 

(EXCESS  >  0) ) 

{ 

//  reduce  number  of  generics  that 
//  can  now  be  instantiated 
MATCH  =  1; 

GENERIC.PRIVATE.NUM  = 
GENERIC.PRTVATEJWM  -  EXCESS; 

EXCESS  =  0; 

) 

if(MATCH  =  l) 

//  need  to  "instantiate"  the  software  base 
//  signature  with  the  matched  query  parameter 
//  to  use  for  later  type  closeness  calculations 
SB_SIG(INDEX]  =  SB_SIG[INDEX}  + 1; 
ADD_INSTANTIATION_TO_SIGNATURE(INDEX,  SB.SIG); 
INDEX  =  INDEX  +  1; 

) 

break; 
case  ARRAY: 

if  (GENERIC. ARRAY_NUM  >  0) 

{ 

H  reduce  number  of  generics  that 
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II  cut  now  be  instantiated 

if  (GENERIC  ARRAY_NUM  >«  EXCESS) 

{ 

MATCH  =  1; 

GENERIC JVRRA  Y J>IUM  = 
GENERIC_ARRAY_NUM  -  EXCESS; 
EXCESS  =  0; 


else 

EXCESS  =  EXCESS  -  GENERIC_ARRAY_HUM; 
GENERIC, ARRAYJWM  =  0; 

) 


if  ( (EXCESS  <=  generic_private_ni;m)  &a 
(EXCESS  >  0) ) 

{ 

II  reduce  number  of  generics  that 
//  can  now  be  instantiated 
MATCH  =  1; 

GENERIC_reiVATE_NUM  = 
GENERIC_PRIVATE_NUM  -  EXCESS; 

EXCESS  =  0; 

} 

if  (MATCH  =1) 

{ 

//  need  to  "instantiate"  the  software  base 
//  signature  with  the  matched  query  parameter 
//  to  use  for  later  type  closeness  calculations 
SB_SIG[INDEX]  =  SB_SIG[INDEX]  +  1; 
ADD_INSTANTIATION_TO_SIGNATURE(INDLX,  SB_SIG); 
INDEX  =  INDEX +  1; 

1 

break; 
case  FIXED; 

if  (GENERIC_DELTA_NUM  >  0) 

I 

//  reduce  number  of  generics  that 

//  can  now  be  instantiated 

if  (GENERIC  DELTA_NUM>=  EXCESS) 

{ 

MATCH  =  1; 

GENERIC.DELT  A_NUM  = 

GENERIC.DELTA  J«JM  -  EXCESS; 

EXCESS  =  0; 


else 

\ 

EXCESS  =  EXCESS  -  GENERIC.DELTA  JIUM; 
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GENERICJDELTA^NUM  =  0; 

} 


if  ( (EXCESS  <=  GENERIC_PRIVATE_KUM)  &A. 
(EXCESS  >  0) ) 

//  reduce  number  of  generics  lh»t 
//  can  now  be  instantiated 
MATCH  =  1; 

GENERIC_PRIVATE_NUM  = 

GENERIC  J«IVATE_NUM  -  EXCESS; 
EXCESS  =  0; 


if(MATCH  =  l) 

{ 

H  need  to  "instantiate"  the  software  base 
//  signature  with  the  matched  query  parameter 
//  to  use  for  later  type  closeness  calculations 
SB_SIG[INDEX)  =  SB.SIGHNDEX)  + 1; 
ADD_INSTANT[ATION_TO_SIGNATURE(INDEX.  SB.SIG); 
INDK  =  INDEX +1; 

) 

break; 
case  DELTA: 

if  (GENERIC_DELTA_NUM  >  0) 

{ 

//  reduce  number  of  generics  that 

//  can  now  be  instantiated 

if  (GENERIC.DELTAJWM  >=  EXCESS) 

( 

MATCH  =1; 

GENERIC_DELTA_NUM  = 

GENERIC_DELTA_NUM  -  EXCESS; 

EXCESS  =  6; 


else 

EXCESS  =  EXCESS  -  GENERIC_DELTAJWM; 
GENERIC_DELTA_NUM  =  0; 

} 


if  ( (EXCESS  <=  GENERIC_PRIVATE_NUM)  && 
(EXCESS  >0)) 

//  reduce  number  of  generics  that 
//  can  now  be  instantiated 
MATCH  =  1; 

GENERIC_PRIVATE_NUM  = 
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GENBUCJ>RIVATELHIJM  -  EXCESS; 
EXCESS  =  0; 


if(MATCH=l) 

{ 

//  need  to  "instantiate"  the  software  base 
//  signature  with  the  matched  query  parameter 
//  to  use  for  later  type  closeness  calculations 
SB  SIG(INDEX]  =  SB.SIGflNDEX}  + 1; 

ADD  JNSTANT1ATION_TO_SIGNATURE<INMX.  SB_SIG); 
INDEX  =  INDEX +  1; 

) 

break; 
case  FLOAT; 

if  (GENERIC.DIGITS >  0) 

{ 

//  reduce  number  of  generics  that 

//  can  now  be  instantiated 

if  (GENERIC_DIGITS_NUM  >=  EXCESS) 

( 

MATCH  =  1; 

GENERIC_DIGITS_NUM  = 

GENERIC_DIGrrS_NUM  -  EXCESS; 

EXCESS  =  0; 


else 

{ 

EXCESS  =  EXCESS  -  GENERIC.DIGITS  JHJM; 
GENERIC  D1GITSJNUM=0; 

} 


if  ( (EXCESS  <=  GENERIC.PRTVATE.NUM)  && 
(EXCESS  >  0) ) 

//  reduce  number  of  generics  that 
//  can  now  be  instantiated 
MATCH  =  1; 

GENERIC_PRIVATE_NUM  = 
GENERIC.PRTVATE.NUM  -  EXCESS; 
EXCESS  =0; 


if(MATCH  =  l) 

{ 

//  nt;;d  ’instantiate"  the  software  base 
//  sign,  iure  with  the  matched  query  parameter 
//  to  use  for  later  type  closeness  calculations 
SB.SIGPNDEX]  =  SB_SIG[INDEX]  + 1; 
ADD_INSTANTlA'nON_TO_SIGNATURE(INDEX,  SB.SIG); 
INDEX  =  INDEX +  1; 
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) 

break; 


caae  DIGITS; 


if  (GENERIC_DIGITS_NUM  >  0) 

{ 

//  reduce  number  of  generics  that 

//  can  now  be  instantiated 

if  (GENERIC_DIGITS_NUM  >=  EXCESS) 

{ 

MATCH  =  1; 

GENERIC_DIGITS_NUM  = 
GENERIC_DIGrrS_>IUM  -  EXCESS; 
EXCESS  =  0; 


else 

{ 

EXCESS  =  EXCESS  -  GENERIC_DIGITS_NUM; 
GENERIC_DIGrrS_NUM  =  0; 

} 


if  ( (EXCESS  <=  GENERIC.PRTVATE.NUM)  && 
(EXCESS  >  0) ) 

{ 

//  reduce  number  of  generics  that 
//  can  now  be  instantiated 
MATCH  =  1; 

GENERIC_PRIVATE_NUM  = 
GENERIC_PRIVATE_NUM  -  EXCESS; 
EXCESS  =  0; 


if  (MATCH  =1) 

{ 

//  need  to  "instantiate”  the  software  base 
//  signature  with  the  matched  query  parameter 
//  to  use  for  later  type  closeness  calculations 
SB_SIG(INDEX]  =  SB_SIG[INDEX1  + 1'. 
ADD_INSTANTIATION_TO_SIGNATURE(INDEX.  SB.SIG); 

INDEX  =  INDEX  +  1; 

} 

break; 

default: 

printfC'**  Error  in  SIGNATURE.;MATCHJ)irrPUT_SIGNATURESChn"); 
break; 


} 


) 
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) 

letuni  MATCH: 

I 


/*  This  function  is  only  necewaiy  for  input  ngnature*.  bslso 
calcuUtes  ii^t  signsture  closeness  degree  as  s  by  product.  It 
is  necessary  to  calculate  the  closeness  degree  in  this  manner 
when  the  number  of  input  parameters  in  Ae  query  component  ate  not 
equal  to  the  number  of  input  parameten  in  the  software  base 
component  (which  could  occur  with  ADT  aggregate  input  signatures). 
This  function  returns  the  value  of  the  closeness  degree  if  a  valid 
match  was  found,  or  a  -1  if  a  False  Match  was  found.  */ 
int  SIGNATURE:CHBCIC_FALSE_MATCH  (int  (2_SIG{],  int  SB_S1G{)) 

{ 

int  REGION.  CLOSENESS.  NOT.DONE.  INDEX.  MATCH; 
int  Lv_(2_SlG(  ALL_REGIONS],  Lv_SB_SIG(  ALL_REGIONSJ; 

Copy  contents  of  query  and  software  base  signature  arrays  into 
local  variable  (Lv)  arrays.  */ 
for  (INDEX  =  a.  INDEX  <  ALLJUEGIONS;  ++INDEX) 

{ 

Lv_(2_SIG{INDEX1  =  (2_SIGIINDEX]; 

Lv  SB.SIGIINDEX]  =  SB  SIGflNDEX]; 

) 

MATCH  *0 
CLOSENESS  =  0; 

/*  Loop  through  the  leaf  nodes.  Once  all  a  node’s  children  are 
processed,  it  becomes  a  leaf  node.  That  is  why  we  can  loc^ 
from  Regions  1  (0)  through  Region  18  (17).  The  order  ensures 
we  are  always  at  a  leaf  node.  */ 
for  (INDEX  =  0;  INDEX  <  INPUT.REGIONS;  ++INDEX) 

{ 

//  The  while  lo(^  continues  as  long  as  the  leaf  region  has 
//  type  instances. 

’“'bile  (Lv_Q_SIG[INDEXl  >  0) 

( 

REGION  =  INDEX; 

NOT_DONE=l; 

I*  Thoe  ate  four  cases  that  can  change  the  status  of  the 
NOT_DONE  boolean  variable: 

case  1  -  The  parent  node  of  the  current  query  node  has  zero 
type  instances. 

case  2  •  The  current  query  node's  parent  has  fewer  type 
instances  then  the  current  quay  node, 
case  3  -  The  current  query  node  is  at  the  top  of  the  Ada  subtype 
hierarchy  (i.e.,  generic  Private) 

case  4  -  The  software  base  current  node  has  zero  type  instances 
and  the  current  query  node  has  one  or  more  type 
instances  (FALSE  MATCH).*/ 
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while  (NOT_DONE) 


{ 


/*  Put  Case  3  fint  to  "shoit  circuit”  the  other  cases  from 
being  evaluated  if  Region  =  17.  */ 
if  ( (REGION  s  GENERIC  PRIVATE)  II  II  Case  3 

(Lv_Q_SIG(PARENT(REGION)1  =  0)  B  //  Case  1 

(Lv_(i.SIG{PARENT{RBGION)l  <  Lv_(i.SlG(RBCaONl)  I  //  Caie  2 
((Lv  SB.SIGfREGION]  =  0)  (Lv_Q_SIG{RBGK»n  >  0)) ) 

//Caae4 

if  ((Lv_SB_SIG[REGIONl  =  0)  &&  (Lv_Q_SIG(REGI<»I]  >  0))  //  Case  4 
{ //  We  have  a  False  Match  ...  No  hmher  processing  needed. 

MATCH  =  -1; 
return  MATCH; 

} 

else 

{ I*  We  have  completed  the  trace  of  a  single  query  component 
input  parameter  and  it  has  a  valid  matching  param^er 
in  the  software  base  component.  *1 
NOT_DONE  =  0; 

/*  We  have  found  die  node  that  represents  the  type  of 
the  query  component  input  parameter.  Remove  a  type 
instance  from  this  node  and  all  descendants.  */ 

Lv_(i.SIG[REGION] 

REMOVE_A_TVPE_FROM_ALL_DESCENDANTS(REGION.Lv_(J_SIG); 

) 

else  //  continue  up  the  Ada  subhierarchy 

( 

//  Remove  a  type  instance  from  the  query  region. 

II  Lv_Q_SIGtREGIONl 

//  move  up  to  the  parent  region 
REGION  =  PARENT(REGION); 

} 

}  //end while NOT.DONE 

I*  Proceed  up  the  Ada  subtype  hierarchy  in  the  software  base 
component.  We  stop  if  Cases  1  -  3  described  above  are 
encountered.  Each  move  up  the  hierarchy  con?esponds  to 
a  difference  of  1  degree  of  closeness  between  the  query 
component  and  software  base  component  parameters.  */ 

NOT_IX)NE=l; 
while  (NOT.DONE) 

{ 

/*  Put  Case  3  first  to  "short  circuit"  the  other  cases  from 
being  evaluated  if  Region  =  17.  */ 
if  ( (REGION  =  GENERIC.PRIV  ATE)  II  //  Case  3 

(Lv_SB  SIG(PARENT(REGION)l  =  0)  II  //  Case  1 

(Lv_SB_SIG[PARENT(REGION)l<Lv  SB.SIGfREGION]) )  II  Case  2 

{ 

H  Halt  the  upward  trace. 

NOT_DONE  =  0; 

/*  We  have  found  the  node  that  represents  the  type  of 
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the  loftware  base  iiqmt  parameter  matched  to  the  query 
component  input  parameter.  Rmiove  a  qq>e  tnstanoe  fiRnn 
this  node  and  all  descendants.  */ 

Lv_SB_SIG(RBGICa<] 

REMOVE_A^TYPE;_IllQM_ALL_DESCENDANrS(RBOION.  Lv_SB_SIG); 


) 

else  //  continue  up  the  Ada  subhierarchy 

//  add  last  upward  move  to  closeness  decree 
CLOSENESS  =  CLOSENESS  -f  1; 

//  move  up  to  the  parent  region 
REGION  =  PARENIXREGION); 

) 

)  //end while NOT_DONE 


) 


) 

//  Return  the  value  of  the  de^ee  of  closeness  which,  since  it  must 
//  be  0  or  greater  implies  that  a  False  Match  was  not  found. 
MATCH  =  CLOSENESS; 
return  MATCH; 

) 


/*  Calculates  the  output  signature  closeness  degtee.  */ 
int  SIGNATURE;:CALC_OUT_CLOSE_DEGREE  (int  Q.SIGQ.  int  SB_SIG[]) 
{ 


int  REGION.  CLOSENESS.  NOT.DONE.  INDEX; 

int  Lv_Q_SIG{ALL_REGIONS].  Lv_SB_SIG(ALL_REGIONSJ; 

f*  Copy  contents  of  query  and  software  base  signature  arrays  into 
local  variable  (Lv)  arrays.  */ 
for  (INDEX  =  0;  INDEX  <  ALL.REGIONS;  ++INDEX) 

{ 

Lv_Q_SIG{INDEX]  =  Q_SIG(INDEX]; 

Lv_SB_SIGIINDEX]  =  SB_SIG(INDEX]; 

) 

CLOSENESS  =  0; 

/*  Lot^  through  the  leaf  nodes.  Once  all  a  node's  children  are 
processed,  it  beccnnes  a  leaf  node.  That  is  why  we  can  loop 
from  Regitms  1  (0)  through  Region  17  (16).  'The  cnder  ensures 
we  are  always  at  a  leaf  node.  */ 
for  (INDEX  =  0;  INDEX  <  OUTPUT  REGIONS;  ++INDEX) 

{ 
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//  The  while  loop  continues  as  long  as  the  leaf  region  has  type 
//  instances. 

while  (Lv_(i_SIG(INDEX]  >  0) 

{ 

R£CHON=:  INDEX; 

/*  Remove  a  type  instance  from  this  Region  (query  only)  and  aU 
ancestor  Regions  in  both  the  quay  and  software 
base  component.  */ 

Lv_(l.SIG(REGION] 

REMOVE_A_'m>E_FROM.>aL_ANCESTORS(RBtH(»l.  Lv_QJSIO.  Lv_SB_SK3); 


/*  We  must  now  continue  down  through  the  Ada  subtype  hiervchy 
with  the  software  base  component  Since  there  are  multi|de 
downward  paths  (a  node  can  have  more  than  1  child)  we  must 
choose  the  shortest  possible  path.  */ 

NOT_DONE  =  l; 

/*  There  are  two  cases  that  can  change  die  status  of  the 
NOT.DONE  boolean  variable; 
case  1  -  The  current  software  base  node  is  a  leaf  node, 
case  2  -  The  current  software  base  node  has  more  type 

instances  than  the  total  number  of  type  instances 
in  its  children.  This  means  we  have  found  the 
closest  possible  matching  output  parameter. 

However,  because  we  couldn't  have  reached  a  leaf  node 
unless  it  had  one  at  mme  type  instances,  and  because  it  then 
follows  that  the  number  of  type  instances  in  a  leaf  node  is 
greater  than  the  number  of  type  instaiKcs  of  its  children 
(which  must  be  zero),  we  only  need  to  apply  Case  2  as  a  test.  */ 
while  (NOT.DONE) 

{ 

if  ( Lv_SB_SIG[REGION]  > 

SUM_OF_CHILDREN_TYPES(REGION,  Lv_SB_SIG) )  //  Case  2 

/*  We  have  completed  the  trace  of  a  single  software  base 
component  output  parameter  that  matches  the  parameter 
in  the  query  component.  */ 

NOT.DONE  =  0; 

//  Remove  a  type  instance  from  the  current  region. 
Lv_OT_SIGfREGION] 

) 

else  //  continue  down  die  Ada  subhicrarchy 

{ 

//  Remove  a  type  instance  from  the  current  region. 

Lv_SB_SIG[REGION] 

//  add  last  upward  move  to  closeness  degree 
CLOSENESS  =  CLOSENESS  +  1; 

//  move  down  to  the  best  child  region 
REGION  =  BEST_CHILD(REGION,  Lv_SB_SIG); 

) 

}  //end  while  NOT.DONE 
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) 


I 

//  Retum  the  value  of  the  degree  of  closeness, 
letum  CLOSENESS; 

) 
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APPENDIX  F  -  MODIFICATIONS  TO  ORIGINAL 
CAPS  SOFTWARE  BASE  C++  SOURCE  CODE 


The  files  listed  below  contain  the  C++  source  code  written  by  John  McDoweU  in 
which  the  more  extensive  modifications  were  made  to  extend  the  CAPS  software  base 
capabilities. 


filename:  sLacLcxx 

/*  Original  software  for  CAPS  software  base  developed  by 
John  KeUy  McDoweU. 


Modified  -  31  August  1993  by  Scott  Dolgoff 
Because  modifications  were  fairly  extensive  in  this  module, 
refer  to  McDoweU's  thesis  to  see  what  the  original  code 
looked  like.  EssentiaUy,  his  by_num_generics  dictionaiy  has 
been  removed  from  the  complex  data  hierarchy.  In  its  place  are 
two  new  dictionaries;  input_signature  and  output_signature. 

I  have  put  my  variables  in  UPPER  CASE  to  help  differentiate.  */ 

//  ADDED 

//  note:  ADT_Signature.h  includes  sbaU.hxx,  sbextem.h  and  Signature.h 
tinclude  "ADT_Signature.h" 
iinclude  <Set.h> 

//  #include  <Primitives.h> 


SB_ADT_COMPONENT_LIBRARY::SB_ADT_COMPONENT_LIBRARY(APL  *theAPL) : 
Object(theAPL) 

{ 

); 


SB_ADT_COMPONENT_LIBRARY;:SB_ADT  COMPONENT_LIBRARY() :  Object!) 

{ 


SB_COMPONENT_DIC'nON  AR  Y  *  ne  w_adt_component_dictionary= 
new  SB_COMPONENT_DICnONARY(); 

thc_8dt_enniponent_dictionary= 

new_adt_component_dictionary->findTRef(); 

Dictionary  *new_main_library=new  Dictionary(OC_integcr, 

OC_dictionaiy, 

TRUE. 

FALSE); 

the_main_library=ncw_main_library->findTRef(); 
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); 


void  SB_ADTjCX)MPONENT.lJBRARY::Desttoy(Boale«n  abated) 

( 

adt_canponent_dictionaiyO->Destroy(abatBd): 

II  now  must  iterate  through  the  multi-attribute  tree  of 
//  dictkmaryies  to  destroy  each  one  of  them 

Dictionary  *by_num_adts; 

Dictionary  *l^_num_operatas; 

Dictionary  *by_num_total_inputs; 

Dictionary  *by_num_genetics: 

Dictionary  *i^_num_total_ouq>uts; 

Dictionary  *leaf_dictiaiaty; 


by_num_adts=main_lihraryO; 

Dictionatylterata  next_by_num_adt(by_num_adts); 

while(next_by_num_adt.moreDataO) 

{ 

by_num_(^)erators=(Dictionary  ‘XEntity  *)next_by_num_adtO: 

//  components  must  have  at  least  as  many  operatas  as  the  query 
Dictionarylteratornext_by_num_operators(by_num_opcratas); 

whiie(next  by_num_operators.moreDataO) 

{ 

by_num_generics=(Dictionaiy  *)(Entity  *) 
next_by_num_operators(); 

Dictionarylterator  next_by_num_genciics(by_num_generics); 

while(ncxt_by_num_generics,mareDaiaO) 

{ 


by_num_total_ouq>uts=(Dictionary  •XEntity  •) 
next_by_num_gcnerics(); 


Dictionarylterator 

ncxt_by_num_total_ouq>uts(by_num_totaLoutputs); 


while(next_by_num  total_output$.mfxeDataO) 

{ 


by_num_totaLinputs=(Dictionaiy  •XEntity  •) 
next_by_num_total_outputs(); 

Dictionarylterator 

next_by_num_total_inputs(by_num_total_inputs); 

while(next_by_num_total_inputs.maeDstaO) 
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leaf_dictionaiy=(Dictionary  ‘XEntity  •) 
next_by_nuin_toULinputs(); 


leaf_dictionary->DestToy(«bcHted): 

I; 

by_num_total_inputs->Dcstroy(aboiled); 

): 

by_nuin_total_oulputs->Deslroy(  aborted); 

}: 

by  num_generics->Destroy(abQrted); 

}; 

by  num  adts->DestToy(aborted); 

); 


delete  the_adt_coinponent_dictionaiy; 
delete  the_inain_library; 

Object;  :Destroy(aborted); 


}; 


void  SB_ADT_COMPONENT_LIBRARY::deleteObject(Boolean  deallocate) 

{ 

adt_cofnponent_dictionaryO->deleteObjecXdeallocate); 

//  now  must  iterate  through  the  multi-attribute  tree  of 
//  dictionaryies  to  destroy  each  one  of  them 

Dictionary  *by_num_adts; 

Dictionary  ’byjum.operators; 

Dictionary  •by_num_total_inputs; 

Dictionary  •by_num_gcnerics; 

Dictionary  •by_num_total_ou5)Uts; 

Dictionary  *leaf_dictionaiy; 

by_num_adts=main_library(); 

Dictionaiylteratornext_by_num_adt(by_num_adts); 

while(next_by_num_adt.moreData()) 

{ 

by_num_operators=(Dictionary  *)(Entity  *)ncxt_by_num_adt(); 

//  components  must  have  at  least  as  many  operators  as  the  query 
Dictionarylterator  next_by_num_operators(by_num_operatDrs); 

while(next_by_num_operators.moreDataO) 

{ 

by_num_generic^(Dictionary  ♦)(Entity  •) 
next_by_num_opCTators(); 

Dictionarylterator  next_by_num_gencrics(by_num_generics); 
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while(next_by_niiin_geiiencs.inareDauO) 


by_num_total_ou^uts=(Dictionary  •)(Entity  •) 
next_by_nuin_generics(); 


Dictionaiylterator 

next_by_num_total_outputs(by_nuin_totol_outputs); 


while(next_by_num_total_outputs.inoreDataO) 

{ 


by_num_toUd_inputs=(Diclionaty  *XEntity  *) 
next_by_num_total_ou^uts(); 

Dictionarylteratar 

next_by_num_total_inputs(by_nuin_total_inputs); 

while(ncxt_by_num_total_inputs.mQrcData()) 

{ 

leaf_dictionary=(Dictionaiy  •)(Entity  *) 
next_by_num_total_inputs(); 

leaf_dicCionary->deleteObject(FALSE); 


); 

by_nuni_total_inputs->deleteObject(FALSE); 

by_num_total_outputs->dcleteObject(FALSE); 

}; 

by  num_generics->deletcObject(FALSE); 

}; 

by_nutn  adts->deleteObject(FALSE); 

}; 

Object::deleteObject(deallcKate); 

): 

void  SB_ADT_COMPONENT_LIBRARY::putObject(Boolean  deallocate) 

adt_componcnt_dictionary()->Dictionary::putObject(deallocatc); 

inain_libraiyO->putObject(deallocate); 

Object  ;putObject(deallocate); 

): 


Type  *SB_ADT_COMPONENT_LIBRARY::getDirectTypcO 

{ 

rrtum  SB_ADT_COMPONENT_LJBRARY_OTypc; 

1; 

SB_COMPONENT_DICTIONARY  *SB_ADT_COMPONENTJLIBRARY;;adt_coinponentjdic6onaryO 
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{ 

return  (SB_COMPONENT_DICnONARY  •XEntity  •) 
the_adt_camponent_dictionaiy->Binding(); 

}; 


Dictionary  •SB_ADT_COMPONENT_LIBRARY::main_lilwaiyO 

{ 

return  (Dictionary  *)(Entity  *)the_main_library->Bindtng(); 

); 


//  ADDED  sig_fUe  as  a  parameter  to  "add"  function 

Boolean  SB_ADT_COMPONENT_LIBRARY:.add(SB_ADT_COMPONENT  •new.component, 

char  ‘SIG.FILE) 

i 

Boolean  retum_flag='niUE: 


//ADDED 

Boolean  NEW_INPUT_SIGNATURE_ARRAY  =  FALSE; 
Boolean  NEW_OinPUT_SIGNATURE_ARRAY  =  FALSE; 
Dictionary  •BY_INPUT_SIGNATURE_DICnONARY; 
Dictionary  •BY_OUTPUT_SIGNATURE_DICnONARY; 


Dictionary  •by_num_adts; 

Dictionary  *by_num_operators; 

Dictionary  •by_num_total_inputs; 

Dictionary  •by_num_total_outputs; 

Dictionary  •leaf_dictionary; 

adt_component_dictionary()->add(new_componcnt); 

adt_component_dictionary()->Dictionary::putObjcct(); 

//  insert  into  the  component  dictionary  was  successful! 

//  so  insert  it  into  the  library 

//  get  the  dictionary  for  the  number  of  adt's 

by_num_adts=main_library(); 

//  now  find  the  dictionary  for  adt_operators 

if(by_num_adts->isIndex(new_component->num_adts())) 

{ 

by_num_operators=(Dictionary  *)(Entity  •X*by_num_adts) 
[new_component->num_adts()J; 

} 

else 

{ 

by_num_operators=new  Dictionary(OC_integer, 

OC_dictionaiy, 

TRUE, 

FALSE); 

by_num_adts->Insert(new_component-> 
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nuin_KltsO> 

by_num_openton): 


): 


II  hwe  ccmect  by.num.opmtoc  dictionaiy  so  get  the 
//  total  number  of  inputs  dictionary 

if(by_num_opa'atDrs->isIndex(new_oomponent-> 

num_adt_operatorsO)) 

{ 

by_num_total_inputs=(Dictionary  *)(Entity  •) 
(♦by_num_operalors) 

[  new_component-> 
num_adt  opcrators()]; 

) 

else 

{ 

by_num_totaLinputs=new  Dictionaiy(OC_integer, 

OC_dictionary, 

TRUE. 

FALSE); 


by_num_operators->Inscrt(new_component-> 

num_adt_operatorsO. 

by_num_total_inputs); 


); 


//  got  the  total  number  of  inputs  dictionaiy  so  now  get  the  total 
//  number  of  outputs  dictionary 


if(by_num_total_inputs-> 
islndex(new_component->total  inputs())==TRUE) 
{ 

by_num_totat_outputs=(Dictionary  *)(Entity  *) 
(•by_num_total_inputs) 
(new_component->total  inputs()]; 

1 

else 


{ 

by_num_totaLoutputs=newDictionary(OC_integer, 

OC_dictionary, 

TRUE, 

FALSE); 


by_num_total_inputs->Insert(new_component-> 

total_inputs(), 

by_num_total_ou^uts); 


): 


320 


//  got  the  total  number  of  outputs  dictionaiy  so  now  get  the 
//  INPUT  SIGNATURE  dictionary 

if(by_num_totaLoutputs-> 
islndex(new  component->lDtal_oulputsO>='niUE) 

I 

BYJNPUT_SIGNATUREJ5ICTIONARY=(Dictioi>ary  •XEntity  •) 
(•by_num_total_outputs) 

(new  component->totaLoutputs01: 

} 

else 

{ 

BY JNPUT_SIGNATURE_DICnONARY:^jew  Diction«y(OC_«Tay, 

OC_dictionary, 

FALSE, 

FALSE): 


by_num_total_ou^uts->Insert(new_component-> 

total_outputsO, 

BYJNPUT_SIGNATURE_DICTIONARY); 


}; 


//  Have  correct  dictionary  for  the  component's  total  ADT  operator  ou^MJts. 
//Now  get  collect  INPUT_SIGNATURE  dictionaiy. 


//  first  get  the  SIGNATURE  value  from  SIG.FBLE 
ifstream  SIGNATURE(SIG_FILE); 
int  REGION,  REGION.VALUE; 

Array  ‘INPUT.SIGNATURE.ARRAY  =  new  Array  (OCJnteger,  ALL.REGIONS,  1); 

for  (REGION=l;  REGION  <=  ALL_REGIONS;  ++REGION) 

{ 

SIGNATURE  »  RBGION_VALUE; 

INPUT_SIGNATURE_ARRAY->setElcment(REGION,REGION_VALUE); 

) 

//  Can’t  use  isindex  to  see  if  the  new  signature  is  already  an 
//  iitdex  in  the  dictionary  because  each  index  is  an  object 
//  with  a  unique  id.  Therefore,  must  iterate  through  indices 
//  and  see  if  one  isSimilar  (i.e.  of  equal  value)  to  the 
//  INPUT_SIGNATURE_ARRAY. 

Array  •FOUND_INDEX_ARRAY; 
intNOT_DONE=  1; 
intINDEJLFOUND  =  0; 

DictioiuuyIt«atar  NEXT_INPUT_SIGNATURE  = 

DictionaiyIterator(BY_INPUT_SIGNATURE_DICTIONARY,TRUE): 
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wlkae(  NEXT JNPUT.SIGN ATUREjnord}tUO  &&  NaT.DONE ) 

1 

POUND_INDEXJlRRAY  =  (Array  •KEntiiy  *) 

NEXTJNPUT.SIGNATUREO; 

//  compare  the  two  signature  arrays 

if  (FOUND  JNDEX_ARRAY->isSiimlat(INPUT_SIGNATURE  ARRAY)) 

{ 

NOT  DONE*0; 

INDEXJK)UND=  1; 

): 

) 

if(INDEX_FOUND) 

{ 

BY_OUTPUT_SIGNATURE_DICTIONARY=(DictkM>ary  ‘XEntily  •) 

(•BY_INPUT_SIGNATURE_DICrnONARY)  [POUNDJNDEX;_ARRAY]: 

} 

else 

{ 

BY_OUTPUT_SIGNATURE_DICrnONARY=ncwDirtionaty(OC_array, 

OC_dictionary, 

FALSE. 

FALSE); 

NEWJNPUT_SIGNATURE_ARRAY  =  TRUE; 

BY.INPUT  SIGNATURE_DICTIONARY->Insert(INPUT_SIGNATUREjVRRAY, 

BY.OUTKJT.SIGNATUREJDICnONARY); 

): 


//  Have  correct  dictionary  for  the  component's  INPUT  SIGNATURE. 
//  Now  get  correct  OUTPUT_SIGNATURE  dictionary. 


//first  get  OUTPUT.SIGNATURE  from  SIG.FILE 

Array  •OUTPUT_SIGNATURE_ARRAY  =  new  Array  (OC.integer,  ALL.REGIONS,  1); 

for  (REGION=l;  REGION  <=  ALL.REGIONS;  ++REGION) 

{ 

SIGNATURE  »  REGION.VALUE; 

OUTPUT_SIGNATURE_ARRAY->setElement(REGION.  REGION  VALUE); 

) 


//////////////// 

//  Can't  use  isindex  to  see  if  the  new  signature  is  already  an 
//  index  in  the  dictionary  because  each  index  is  an  object 
//  witti  a  unique  id.  Therefore,  must  iterate  through  indices 


//  and  see  if  one  isSimilar  (i.e.  of  equal  value)  to  the 
//  Oini>UT_SIONATURE_ARRAY. 

NOT_DONE  =  1; 

INDE3C_FOUND  =  0; 

Dictionaryllentor  NEXT_OUTPUT_SIGNATURE  = 

DictionaiyIteratoi<B  Y_OinPUT_SIGNATlJRE_DICTIONARY.  TRUE); 

whiW  NEXT.OUTPUT.SIGNATUREjnoreDataO  &A  NOT_DONE ) 

FOUND_INDEXjWRRAY  =  (Anay  •KEntity  *) 

NEXT_OUTPUT_SIC»1ATUREO; 

II  compare  the  two  signature  anays 

if  (FOUND  JNDEX_ARRAY->isSiiiular(OUTPUT_SK5NATURE_ARRAY)) 

{ 

NOT_DONE  =  0; 
lNDEX.FOUND=l; 

); 

} 

if(INDEX_FOUND) 

Ieaf_dictionaiy=(Dictionaiy  *)(Entity  *) 

”  (•BY_OUTPUT_SIGNATURE_DlCnONARY)  {FOUND JNDEXLARRAY); 

) 

else 

{ 

leaf  dictionaiysnew  Dictionaiy(OC_string, 

SB.COMPONENT.Oiypc, 

FALSE, 

FALSE); 

NEW_OUTPUT_SIGNATURE_ARRAY  =  TRUE; 

BY_OUTPUT_SIGNATURE_DICnONARY->InsaKOUTPUT_SIGNATURE_ARRAY. 

leaf_dictionary); 


); 


//  have  the  leaf  dictionary  so  now  insert  the  component  into  it 
leaf_dictionaty->Inseit(new_component'>component_name(), 

new_component); 


by_num_adts->putObject(); 

by_num_operators->putObject(); 

by_num_total_inputs->putObject(); 

by_num_totaLouq>uts->putObject(); 

l^_dictionary->putObject();; 
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BYJNFUT_^iaNA1VIlEJ»CT10NARY->puK3^^ 
BY_OUTlVr_SKJNATUREJMCTl(»<ARY->i»iObj^ 
if  (NEW  JNPUT_SIGNATURB_ARRA  Y) 
INPUT_SIGNATl»E;jJWAY->pu«Obj«< 
if  affiW.OlTEPUT.SIGN ATURE_ARRA Y) 
CRnTVr_SIGNATURE_AWUY->puK)bj«:«(); 


retum  retum.fUg; 
); 


widSB  ADT  CX>MPONENT_LmiURY::delete_a)mpof)enl(SB_ADT_COMPC»4ENT*lbe_coinpoiMat) 
{ 


Dictionay  *l^jnum_adts; 
Dictionaiy  *t^_nuin_opentars: 
Dictionuy  *t^_num_total_inputs: 
Dktianaiy  •by_num_generics; 
Dictionuy  *by_num_totaLou4)uts; 
Dictionaiy  *leaf_dictionaiy; 


adt_coniponent_dictionaiyO->Remove(the_component'->coinponent_naineO): 
■dt_componenC.dictionaiyO->Dictionaiy ;  :pulObject(); 


by_num_adts=main_libraiy(); 

//  now  find  the  dictionaiy  for  adt.operators 

if(by  num  adts->isIndex(the_coinponent->num_adts())) 

{ 

by_num_operators=(Dictionary  ‘KEntity  *X*by_num_adts) 
[the_component->num_adtsO] ; 

//  have  correct  by_num_operator  dictionary  so  get  the 
//  gen^k  types  diet 

if(by_nuni_opcrators->isIndex(the_component-> 

nuin_adt_operators())) 

{ 

by_num_generics=(Dictionary  *)(Entity  *) 
(•by_nuin_operatois) 
fthe_coinponent-> 
num_adt_operators()] ; 

//  got  the  generics  dictionary  so  get  the  total  base 
//  types  dictionaiy 

if(by_num_generics->isIndex(the_coniponent-> 

nuni_generk_type8())=TRUE) 

{ 

by_nuin_total_outputs=(Dictionary  •KEntity  •) 
(*by_nuin_gcncrics) 
[the_component->nuni_generic_typesO}; 
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if(by_nuin_toUl_ou^ts-> 

iilndex(the_compon«it->touLot^>utiO>»TRUE) 

{ 

by_miin_toUl_inpuUs(DictiatMiy  •KEnlity  •) 
(*l>y_nuni_touLoulputs) 

[the_oompoaent->toal_outputiOI; 


if(by_num_iottLinputs-> 
ulndex(the  component->touUi^NiaO)^'niUE) 

( 

kaf_dictiQiMfya(Dictiaiuiy  *XE<>tity  *) 

(•by_nuni_lottl_iiqHitf) 

(the_coinponent->touUi>putsO): 

//  have  to  leaf  dictionary 

leaf_dictionary->Reniove(the_coniponent->co(nponenOumeO): 

leaf_dictionaty->putObject(); 

if(leaf_dictionary->Caidinality()=0) 

{ 

by_nuin_iotal_inputs-> 

Reinove(the_cofnponent->toal_inputs()); 

by_nufn_totaLinput*->pulObject(); 

leaf_dictianaiy->ddetBObject(TRUE); 

if(by_nuin  total  inputs->Cardinality(>=0) 

by_nutn_total_ouqjuts-> 

Ren>ove(the_coniponem->tDtal_outputfO); 

by_num_total_outputs->putObject(); 

by_num_lotal_inputs->deleteObject(TRUE); 

if(by  num_total_ou^ts->Cardinality(>=sO) 

( 

by_niini_generic8-> 

Reniove(the_conipanent->num_genchc_typesO); 

by_nuin_generic$->putObjecl(): 

by_num_totaLoutputs->ddeleObject(TRUE); 

if(by_nuni_generics*>Cardinality()=0) 

{ 

by_num_operat<»s-> 

ReiTiove(the_coinponent->niiin_adtjopeTatonO); 

by_nuin_<^>cratOTS->putObject(); 

by_nuni_£enerics-xkleteOI:gect(); 

if(by_nuin_opmtois->Caidinality(^=0) 

{ 

by_nuin_adts-> 

Reniove(the_coinponent->fluin_adts()); 

by_|ium_adts->pulObject(); 

by_nuni_operatDis*>deleteObject(); 

); 
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1 


); 


): 


): 


1; 


): 


); 


1; 


); 


}; 


SB_COMPONENT3<ATCHES_DICnONARY  *SB  JUOT_COMPONENT_lJBRARY:-.qiie*y( 

SB_ADT_COMPONENT  *q|iieiy_coniponent) 


{ 


Dktionaty  *by_nunn_adts; 
Dkdofiaiy  *by_num_(^rators; 
Dktionaty  •t^_nuin_t^_inputs; 
Dictionary  •by_num_total_ou^uts; 
Dictionary  *kaf_dictionary; 


//ADDED 

Dictionary  •BY_INPUT_SIGNATURE_DICnONARY; 
Dictionary  •BY  OUTPUT  SIGNATURE.DICnONARY; 


//  ADDED  class  SIGNATURE  comes  from  Signature.h 
SIGNATURE  SiG; 

//  class  ADT_SIGNATURE  comes  from  ADT_Signature.h 

ADT.SIGNATURE  ADT_SIG; 

int  QUERY JN_SIG[ALL_REGIONSl; 

int  QUERY_OUT_SIG[  ALL.REGIONSJ; 

int  SB_IN_SIG(ALL_REGIONS]; 

int  SB_OUT_SIG[ALL_REGIONS]; 

int  REGION; 

int  MATCH; 


//MODIFIED 

SB_COMPONENT_MATCHES_DICnONARY  ♦query.result  =  new 
SB_C0MP0NENT31ATCHES_DICTI0NARY(); 

//ADDED 

SB_C0MP0NENT_DICTI0NARY  •intermediate_query_result  =  new 
SB_COMPONENT_DICTIONARY(); 
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/lADDIED 

//  Get  the  signatures  from  the  query  component 
SIG.GEr_SIGNATURES(QUERY JN_SIG.  QUHlY_OUT_SIG); 

//  in  Older  for  a  match  library  must  have  at  least  as  many  ark's  as 
//  being  requested 

by_num_adts=main_library(); 

Dictionarylteratar  next_by-num_adt(by_num_adts, 

FALSE. 

queiy_comp(xient>>num_adtsO); 


while(next_by_num_adt.moreDataO) 

{ 

by_num_operators=(Dictionary  ‘ICEntity  •)next_by_num_adt(); 

H  components  must  have  at  least  as  many  operators  as  the  quay 
Dictionarylterator  next_by_num_(^)aatots(by_num_operators, 
FALSE. 

query_component->num_adt_operators()); 

while(next_by_num_operators.moreDataO) 

{ 

by_num_total_inputs=(Dictionary  *XEntity  •) 
next_by_num_operatQrs(); 


Dictionarylterator  next  by_num  total_inputs(by_num_total_inputs, 

FALSE, 

quety_component->total_inputs()); 

while(next  by_num_total_inputs.morcDataO) 

I 

by_num„total_ouq)uts  = 

(Dictionary  *XEntity  ♦)next_by_num_total_inputs(); 

H  Got  the  corresponding  output  dictionary  so  now  go  through 
//  and  get  the  INPUT  SIGNATURES  that  are  in  dictionaries  with 
//  number  of  total  output  parameters  greater  than  or  equal 
//  to  the  query  component 

Dictionaryltaator  NEXTJNPUT_SIGNATURE_DICTIONARY  = 
DictionaryIterator(by_num_total_outputs, 

FALSE, 

quay_component-> 

total_outputs()); 


wlrile(NEXT_INPUT_SIGNATURE_DICTIONARY.mord)ata()) 

{ 

B  Y_INPUT_SIGNATURE_DICTION  ARY  =  (Dictionary  *)(Entity  •) 
NEXTJNPUT_SIGNATURE_DICTIONARYO: 

//  Got  an  Input  Signature  dictionary. 
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//  got  an  INPUT  SIGNATURE  dictionary  to  iterate  over  it 

//  for  the  OUTPUT  SIGNATURE  dktionariet.  The  dictiooaiy  indicea 

//  (Airay  objects  conesponding  to  Input  Signatures)  are  returned. 

//  Only  those  output  dictionaries  will  be  examined  where  the 
II  INPUT  SIGNATURE  of  the  stored  con^ionent  matches  the  INPUT 
//  SIGNATURE  of  the  query  component 
Dictionarylterator  NEXT_INPUT_SIGNATURE  ~ 

DictionaiyIteratDt<B  Y_INPUT_SIGNATURE_DICnONARY,  TRUE); 


//  Create  a  temporary  set  to  store  all  matched  signatures  in 
II  for  that  particular  INPUT  SIGNATURE  dictionary. 

//  Loop  through  all  of  the  INPUT  SIGNATURES  for  that  dictionaty. 

Set  •MATCHED_INPUT_SIGNATURES; 
MATCHED_INPUT_SIGNATURES  =new  Set(OC_arTay); 

while(NEXT  INPUT_SIGNATURE.m<weD«a()) 

{ 

Array  •INPUT.SIGNATURE  =  (Array  •)(Entity  •) 

NEXT  INPUT.SIGNATUREO: 


//  Load  the  Array  object  into  a  C-t-f  array. 

for  (REGION=l;  REGION  <=ALL_REGIONS;  ++REGION) 

II  Note:  C++  array  goes  from  0 ..  ALL_REGIONS  -1 
SB  JN_SIG{REGION  - 1  ]  = 

*(  (Integer  *)  (Entity  •)  (‘INPUT.SIGNATURE)  (REGION)); 

) 

//  Check  to  see  if  we  have  matching  input  signatures. 

MATCH  =  SIGmTCH JNPUT_SIGNATURES(QUERY JN^SIG,  SB  JN.SIG); 
if  (MATCH  =1) 

{ 

//  Check  for  False  Match. 

II  If  MATCH  >=  0  then  we  have  a  valid  match  and  the 
//  value  of  MATCH  is  the  type  closeness  degree. 

MATCH  =  SIG.CHECK_FALSE_MATCH(QUERY_IN_SIG,  SBJN.SIG); 
if  (MATCH  >=0) 

{ 


//  Add  the  software  base  component  signature  to  the 
//  set  of  matched  signatures. 

MATCHED_INPUT_SIGNATURES->Insert(INPUT_SIGNATURE); 


}; 

}; 

};  // end  iterate  through  Input  Signatures 


//  Now,  go  through  the  set  of  matched  sign^ures,  and  check 
//  the  corresponding  OUTPUT  SIGNATURE  dictionaries. 
Setiterator  NEXT_OUTPUT_SIGNATURE_DICTION  ARY  = 
SetIterator(MATCHED_INPUT_SIGNATURES); 
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while  (NECT_OUTPUT_SlGNATURE_MCTIONARYjnowDiai()) 

Airay  •SIGNATURE.IMCrnONARY.INDEX  =  (Amiy  •)  (Entity  •) 

NEXT_OUTPUT_SK5NATURE_IMCnC»<ARY0: 

BY_OUTPUT_SIGNATURE_DICnONARY  *  (Diction«y  •)  (Entity  •) 
(•BY_INPUT_SlGNATURE_DICnCWARY) 
ISIGNATURE_DICnONARYJ[NDEXJ: 


H  Got  an  Output  Signature  dictionary. 

//  Create  a  temporary  set  to  store  all  matched  signatures  in  for 
//  the  specific  OUTPUT  SIGNATURE  dictionary. 

//  Loop  through  all  of  the  OUTPUT  SIGNATURES  in  that  dictionary. 

Set  •MATCHED_OUTPUT_SIGNATURES; 
MATCHED_OUTPUT_SIGNATURES  =  new  S«»(OC_anay); 

H  Only  those  ou^ut  dictionaries  will  be  examined  where  the 
//  OUTPUT  SIGNATURE  cS  the  stored  component  matches  the 
//  OUTPUT  SIGNATURE  of  the  query  component 
Dictionarylterator  NEXT_OUTPUT_SIGNATURE  = 

DictionaryIteratQr(BY_OUTPUT_SIGNATUREJ5ICnONARY.TRUE); 

whUe(NEXT_OUTPUT_SIGNATURE.mQreData()) 

{ 

Array  •OUTPUT.SIGNATURE  =  (Array  ‘XEntity  •) 

NEXT_OUTPUT_SIGNATURE(); 

//  Load  the  Array  object  into  a  C++  array. 

for  (REGION=l:  REGION  <=ALL_REGIONS;  ++REGION) 

//  Note:  C++  array  goes  from  0 ..  ALL_REGIONS  - 1 
SB_OUT_SIG[REGION  - 1)  *  *(  (Integer  •)  (Entity  •) 
(*OUTPUT_SIGNATURE)  [REGION] ); 


//  Check  to  see  if  we  have  matching  OUTPUT  signatures. 

MATCH  =  SIGMATCH_OUTPUT_SIGNATURES( 

QUERY_OUT_SIG,  SB_OUT_SIG); 

if(MATCH=  1) 

{ 


//  Add  the  software  base  component  signature  to  the 
//  set  of  matched  signatures. 

MATCHED_OUTPUT_SIGNATURES->Insa1(OUTPUT_SIGNATURE); 


); 

)  //  end  iterate  tiitough  OUTPUT  Signatures 


//  Now,  go  through  the  set  of  matched  signatures,  and  get 
//  the  corresponding  leaf  dictionaries. 

SetIterator  next_leafs_dict  = 

SctItcrator(MATCHED_OUTPUT_SIGNATURES); 

while  (next_leafs_dict.moreData()) 

{ 
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An*y  •SIGNATURE.WCTJNDEX  *  (Aniqr  •)  (Enti^  *) 

iiext_feafs_dictO: 

leaf  dictionary  s  (Dictjofiaiy  *)  (Entity  *) 

(•BY_Oim>inLSIGNATURE_IMCrncW^  ISKa^ATUREjraCTJNMXl; 

//  Got  the  cotreaponding  leaf  diclionafy  to  now  go  through 
//  and  get  the  componenti  that  are  in  the  dictionary. 

Dktionarylterator  next_component= 

DictionatyIteratot(leaf_dictianary); 

while(next_component.martDataO) 

{ 

SB_ADT_CX)MPONENT  *the_component= 

(SB_AI>T_COMPONENT  •XEnlity  *)next_component(); 

//  currently  always  true 

if(query_component->filtBr(die  coniponent)=TRUE) 

{ 

//  put  the  components  in  the  intermediate 
//  query  result  dictionary 

intermediate_query  result->add(the  component); 

}; 

}; 

}; 

}; 

); 

); 

}: 

}; 

//  Verify  that  the  components  match.  So  far  we  have  only  matched 
//  aggregate  signatures.  We  now  need  to  ensure  that  we  can  mq> 

//  individual  query  component  ADT  operators  to  matching  software 
//  base  component  ADT  operators. 

//  Create  an  array  that  holds  the  input  and  ouq>ut  signature  of 
//  each  query  ADT  operator.  Note;  it  must  be  dynamic  since  we 
//  don't  know  its  size  until  runtime. 

SIGNATURES  *QUERY_SIGNATURE; 

QUERY.SIGNATURE  =  new 

SIGNATURES(query_componcnt->num_adt_operators()); 

//  Create  array  to  hold  the  number  of  input  and  ouqjut  parameters  of 
//  the  query  component's  ADT  operators. 

PARAMETERS  *QUERY_OPERATOR_IO; 

QUERY_OPERATOR_IO  =  new 

PARAMETERS[qucry_component->num_adt_operators()]; 

//  load  query  ADT  operatcH-  signatures 

ADT_SIG.LOAD_ADT_OPERATOR_SIGNATURES(QUERY_SIGNATURE, 

QUERY_OPERATOR_IO,  query_component); 

//  iterate  through  the  dictionary  of  components  that  matched  on  the 
//  basis  of  aggregate  input  and  ou^ut  signatures 
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Dictionaiylti^sior  next.component  =  intenn6diate_query_Te*ult->itaator(); 

while  ( iwxt.componentmoreDaUO ) 

{ 

SB_ADT_COMPONENT  •the_c«nponent  = 

(SB_ADT_COMPONENT  *)  (Entity  •)  fiext_component(); 

H  Create  an  array  of  linked  lists.  Each  anay  cell  corresponds  to 
//  a  query  component  ADT  c^ierator.  Each  linked  list  is  made  up  of 
//  all  software  base  component  ADT  operators  that  match  the  quay 
//  component  ADT  operator.  Note  -  it  must  be  dynamic  because  we 
//  don't  know  its  size  until  runtime. 

LINK  •QUERY_OPERATORS; 

QUERY.OreRATORS  =  new 

LINKiquety_component->num_adt_operators()]; 

//  initialize  all  lists  to  null 
int  INDEX; 

for  (INDEX  =  0;  INDEX  <q'jsry_component->num_adt_operatars();  ++INDEX) 
QUERY_OPERATORS[INDEX]  =  NULL; 

ADT.SIGB  UILD_OPERATOR_MATCH_LIST  (QUERY_S1GNATURE  QUERY.OPERATORS, 
QUERY_OPERATOR_IO, 

query_component,  tfiejcomponent); 

//  find  a  valid  mapping  of  query  operators  to  sofwate  base  component 
//  operators 

MATCH  =  ADT.SIG.  ADT_MATCH(  QUERY_OPERATORS,  query.componcnt, 

the_component); 


if  (MATCH  ==  1) 

{ 

//  match  was  found.  Store  next_component  in  query_result  dictionary. 
//  Use  its  number  of  ADTs  and  ADT  operators  (Vs  the  number  for  the 
//  query  component)  to  order  it  in  the  dictionary.  Because  the 
//  match  found  may  actually  be  desired  (semantics)  or  optimal, 

//  signature  type  closeness  is  not  used  when  ordering  matched 
//  ADT  components. 

//  put  the  components  in  the  return  result  dictionary 

long  TOTAL.CLOSENESS  =  10000; 

TOTAL.CLOSENESS  =  TOTAL_CLOSENESS  + 

(  (the_component->num_adts()  - 
querj  _component->num_adts())  *  1000)  + 
(the_component->num_adt_operators()  - 
query_component->num_adt_operators()); 

query_result->Insert(TOTAL_CIjOSENESS,  thejcomponent); 

): 

}: 

//  add  code  here  for  semantic  matching  interface 
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return  query_result; 

1; 

voidSB_ADT  CX)MPONENT  LlBRAKY::list(ofstream&outetieain) 

( 

adt_coinponent_dictionaryO->printOn(outstieam): 

); 


filename:  sbao.cxx 

n. - 

II 

U  J.  K.  MCDOWELL  23  AUG  91 

II 

H  Modified  by  Scott  Dolgoff  -  29  Jul>  1993 

//  Additions  are  preceded  by  "//  ADDED".  Modifications  are 

//  preceded  by  "//  MODIFIED". 

// 

H - 

//MODIFIED 

//#  include  "sball.hxx" 

//#  include  "sbextem.h" 

//ADDED 

tinclude  "ADT_Signature.h" 


SB_ADT_OPERATOR::SB_ADT_OPERATOR(APL  •theAPL) : 
SB_OPERATOR(theAPL) 

{ 

); 


SB_ADT_OPERATOR;:SB_ADT_OPERATOR(char  •id) : 
SB_OPERATOR(id) 

1 

//  ADDED  (all  code  in  constructor) 

Array  •new_input_signature=ncw  Array(OC_intcgcr,  ALL_REGIONS,  1); 
die_input_signature=ncw_input_signaturc->fmd7Rcf(); 


Array  *new_ouq)ut_signature=ncw  Array(OC_integer,  ALL_REGIONS,  1); 
die_output_signalure=new_output_signature->findTRef(): 
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//  ADDED  -  from  the  class  ADT.SIGNATURE 

ADT.SIGNATURE  ADT.SIG; 

int  REGION; 

intRECaON.  VALUE; 

int  IN_SIGlALL_REGIONS); 

int  OUT_SIGlALL.REGIONS]; 

ADT_SIG.GET_SIGNATURES_FROM_FILE  (IN_SIG.  OUT.SIG,  id); 
//  read  in  input  signature 

for  (REGION  =  1;  REGION  <=  ALL.REGIONS;  ++REGION) 

REGION.VALUE  =  IN_SIG[REGION  -  IJ; 
input_signature()->setElement(REGION,  REGION  VALUE); 

) 

//  read  in  output  signature 

for  (REGION  =  1;  REGION  <=  ALL.REGIONS;  ++REGION) 

< 

REGION_VALUE  =  OUT_SIG(REGION  - 1]; 
output_signature0->setElement(REGlON,  R^ION  VALUE); 

) 


): 


void  SB_ADT_OPERATOR;;Destroy(Boolcan  aborted) 

( 

//ADDED 

input_signature()->Destroy(aborted); 

ou^ut_signatureO->Destroy(aboited); 

SB_OPERATOR:  :Destroy(aborted); 

}; 

void  SB_ADT_OPERATOR::deleteObject(Boolean  deallocate) 

{ 

//ADDED 

input_signature()->deleteObject(deallocate); 

output_signature()->deletcObject(deallocate); 

SB_OPERATOR::deleteObject(deallocate); 

): 

void  SB_ADT_OPERATOR::putObject(Boolean  deallocate) 

{ 

//ADDED 

input_signature()->put0bj6ct(deallocate); 

ou^ut_signatureO->putObject(deallocate); 

SB_OPERATOR::putObject(deallocate); 

): 

Type  •SB_ADT_OIERATOR;:getDirectTypeO 

{ 

return  SB_ADT_OPERATOR_OType; 
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); 


//ADDED 

Amy  *SB_ADT_OPERATOR;:inpiit  signalureO 

{ 

return  (Amy  *XEntity  *)the_input_si£nature->BindinjO: 

}; 


//ADDED 

Amy  *SB_ADT_OreRATOR::ou^ut_signatureO 

{ 

return  (Array  *)(Entity  *)die_output  signature->Binding(); 

): 


//ADDED 

Array  *SB_ADT_OPERATOR::gct  input_signatureO 

{ 

return  input.signatureO: 

): 

//ADDED 

Array  •SB_ADT  OHERATOR:;get_ou^ut_signatureO 

{ 

return  output_signature(): 

}; 

Boolean  SB_ADT_OPERATOR;;process_type  info(SB_ADT  COMPONENT ‘adt) 

I 

//  process  types  by  checking  local  generic  then  adt.adt  usage  then 

II  adtgeneric  usage  before  making  it  unrecognized.  This  will  update 
//  the  adt  usage  dictionaries  as  well 

//  update  all  usage  dictionaryies  for  inputs  and  outputs 

II 

//  first  go  through  all  of  the  inputs 

Dictionarylterator  next_input=input_attributes()->idJterator(); 
while(next  input.moreDataO) 

{ 

SB_ID_DECL  •this_decl=(SB_ID_DECL  *)(Entity  *)next_input(); 
SB_TYPE_NAME  •this_type_name=this_decl->type_name(); 

//  first  see  if  this  id_decl  type  is  a  generic 
if(generic_usage()->update(this_type_name)=FALSE) 

{ 

//  was  not  a  generic  type  check  the  ADT  genoic  list 

if(adt->geneTic_usageO->update(this  type  name>=FALSE) 

{ 

//  was  not  an  adt  genetic  so  check  the  adt  list 
if(adt->adt_usage()->update(this_type_name)=FALSE) 

{ 

//  was  not  an  adt  adt  so  put  it  in  its  local  list 
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//  based  on  whether  or  not  it  is  recognized 
ijf(this_type_name->recognized()s=FALSE) 

//  was  unrecognized  so  try  to  update 
//  the  unrecognized  list  or  add  it  to 
//  the  list 

if(unrecogni2ed_type_usage0*> 

update(this_type_naine)s=FALSE) 

{ 

//  not  yet  in  list  so  add  it 
unrecognized_type_usageO-> 
add_type(this_typc_name->id(), 
this_type_nanie); 

//  now  update  it  for  being  used  once 
unrecognized_type_usageO-> 
update(thi$_type_nanie); 

}: 

) 

else 

{ 

H  this  t3rpe  name  is  recognized  so  update 
//  or  add  it 

if(recognized_type_usagcO-> 

update(this_type_name)=FALSE) 

{ 

//  not  yet  in  list  so  add  it 
recognized_type_usageO-> 
add_type(this_type_name->id(), 
this_type_name); 

//  now  update  it  for  being  used  once 
recognized_type_usage()-> 
updatc(this_type_name); 

); 

); 

); 

}; 

): 

): 

Dictionarylterator  ne)it_ou5)ut=output_attributes()->id_iterator(); 
while(next_ou^uLmoieData()) 

{ 

SB_1D_DECL  •this_decl=(SB_ID_DECL  *)(Entity  •)next_output(); 
SB_TYPE J'lAME  *this_type_name=this_decl->type_namc(); 

//  first  see  if  this  id_decl  type  b  a  generic 
if(generic_usage()->update(this_type_name)=FALSE) 

{ 

//  was  not  a  generic  type  check  the  ADT  genoic  list 

if(adt->generic_usageO->updatc(this_type_name)=FALSE) 

//  was  not  an  adt  generic  so  check  the  adt  list 
if(adt->adt_usage()->update(this  type_name)=FALSE) 
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//  was  not  an  adt  adt 
//  so  put  it  in  its  local  list 
//  based  on  whether  cr  not  it  is  recognized 
if(this  type_name-:^ecogiu2edOsFALSE) 

//  was  unrecognized  so  try  to  update 
//  the  unrecognized  Ust  <x  add  it  to 
//  the  list 

if(unrecognized_type_usageO-> 

updale(this_typejname)=FALSE) 

{ 

//not  yet  in  list  so  add  it 
unrecognized_type_usageO-> 
•dd_type(this_type_nanve->id(), 

this_type_nsnte): 

//  now  update  it  for  being  used  once 
unrecognized_type_usageO-> 
update(this_type_nanie); 

}; 


//  now  update  the  adt  list  as  well 

if(adt->unrecognized_type_usageO-> 

update(this_type_name>=FALSE) 

{ 

//  not  yet  in  list  so  add  it 
adt->unrecognized_type_usagc()-> 
add_type(this_type_name->id(), 
this_type_name); 

//  now  update  it  for  being  used  once 
adt->unrecognized_type_usageO-> 
update(this_type  name); 

); 


) 

else 

I 

//  this  type  nam  I  ^  recognized  so  update 
//  or  add  it 

if(recognized_type_usage()-> 

update(this_typc_name)=FALSE) 

{ 

//  not  yet  in  list  so  add  it 
rccogni2ed_type_usage0-> 
add_type(this_type_name->id(), 
this_typc_name); 

//  now  update  for  being  used  onece 
recognized_type_usageO-> 
update(this_type_name); 

J; 

//  now  update  the  adt  usage  list 
if(adt->recognized_type_usageO-> 

update(this_type_name)=FALSE) 

{ 
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//  not  yet  in  list  to  add  it 
adt->Tecognized_type_usaseO-> 
add_type{this_type_naine->id(), 
lhis_type_naine); 

//  now  update  for  being  used  onece 
adt->recognized_type_usageO'> 

update<this_type_nanie); 

); 


); 

J; 

1: 

): 

tetumTRUE; 


): 


filename:  sbcind.cxx 

//  Added  to  the  CAPS  software  base  classes  (developed  by 
//  John  Kelly  McDowell  in  August.  1991)  by  Scott  ^Igoff. 

//  SB_COMPONENT_MATCHES_DICTIONARY  is  only  used  as  a  tempcvaiy 
//  variable,  so  no  puts,  destroys  or  deletes  are  expected  to 
//  be  used. 


#  include  “sball.luix" 

#  include  "sbextem.h" 


SB_COMPONENT_MATCHES_DICnONARY::SB_COMPONENT_MATCHES_DICnONARY(APL*theAPL) 

;  Dictionaiy(theAPL) 

); 

SB_COMPONENT_MATCHES_DlCnONARY::SB_COMPONOrr_MATCHES_DICnONARYO 

:  Dictionary  ((X!_integer,  //  KEY 

SB_COMPONENT_OType. 

TRUE, 

TRUE) 

( 

//Index  values  (keys)  represent  the  closeness  of  the  match  with  the 
II  smaller  index  values  representing  the  closest  matches. 


Type  •SB_COMPONENT_MATCHES_DICTIONARY::getDirectTypeO 

{ 
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icttm  SB.COMP(»(ENTJ)UiaiES JXCIKXO^Y.Cn^ 

): 

void  SB  CC»bfl<»<E^^JiUTCHES_IXCmCBiARY;:I>»lIoyCBoafeu 

I 

//  lint  destioy  all  of  the  refcrencei  in  the  dictkaury 
DictionaiyltBratcr  next_compoiient(thit); 

«diile(next_cofnponentinareDaUO) 

{ 

((SB_COMPONENT  •XEntity  *)next_cofnpoiient())->Declny<aboited); 

); 

Dictionary::I>estioy(abarted): 

); 

vddSB  CX>MFONEhrrj^TCHES_DICnONARY::deleteOfaiect(Boofeandealkx^ 

{ 

U  first  delete  all  of  the  references  in  the  dictionary 

Dktionatylterator  next_cofnponent(this); 

while(next_componentmoreDataO) 

{ 

((SB  COMPONENT  *XEntity  *)next_compooent())->deleteObject(FALSE): 

); 

Dictionaiy :  ;deleteObject(deallocate); 


void  SB  COMPONENT  MATCHES  DICTIONARY::putObject(Boolean  deallocate) 

( 

//  first  put  all  of  the  references  in  the  dictionary 

Dktkmarylterator  next_component(this); 

while(next_coniponentinoreData()) 

{ 

((SB  COMPONENT  *)(Entity  ♦)next_component())->putObject(deallocate); 

1; 

Dictionary;:putObject(deallocate); 

1: 


void  SB_CX)MPONENT_MATCHES_DICrnONARY:qptintOn(ofstteam&  outstream) 

{ 

//  Because  the  compcments  are  stored  in  the  order  of  their  closeness 
//  value  (closeness  =  input  type  closeness  -t-  output  type  closeness 
//  excess  ou^t  parameters)  they  ate  automatically  retrieved  by 
H  the  iterator  in  the  desired  tmler  from  closest  match  to  farthest 
Dictionaryltcrator  next_oomponent= 
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DidioiuiylleraiDrCthu); 


whi]ie(ii6Xt_campoii6nLiiioreD«taO) 

{ 

inti; 

SB_COMPWENT  *die_caniponent=(SB_COMPCM<ENT  *XEnltty  *)next_coinponen(0; 
outitiaun  « tlie_cofnponent->coniponent_nanMO: 

fof(isslrlen(the_component->compoiient_nameO):i  <  ISFAULT_NAME_SIZE;  i-*--*-) 

{ 

outstream  «  " 

): 

outstream  «  " 

char  *infannaLdesc=(the_cofflponent*>infonnaLdeaciiptionO)->text(): 
i=0; 

whi]e<inf(nnial_dcsc(i]!=NULL  &A,  info^naL<)eac(i]!=^n') 

{ 

outstream  « infQtmaL<iesc(i]: 

i++; 

); 

outstream  «  “Vn”; 

): 


DktkHiarylteratorSB.COMPONENT  MATCHES.DICTIONARY.titcratcrO 
return  Dictionatylterator(this); 

); 


filename: 

// - 

II 
II 
II 
II 
II 
II 
II 
//- 


sbextern.li 


J.  K.  MCDOWELL  23  AUG  91 

ModiBed  by  Scott  Dolgoff  -  29  July  1993 
Additions  are  preceded  by  "//  ADDED".  Modifications  are 
preceded  by  "//  MODIFIED". 


II 

H  this  file  contains  all  of  the  external  references  to  the 
//  ontos  type  schemas 
// 


extern  Type  *SB_LIBRARY_OType; 

exten  Type  *SB_ADT_COMPONENT_LIBRARY_OType; 
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coilmi  Type  *S8_(X«ATCHLCOifO>ONENTJJBRARYjOriy^ 

caUm  TVpe  *SB_OOMPONENT_OType; 

caUem  Type  •SB_CC»4IKWEhrrjDICTK»<ARY_CnV^^ 

cxieni  Type  •SB_KEYWORD_DICnONARY_OT/pe; 

entm  •S®jreXT_C»JKrrjOfType; 

eoUein  Type  •SB_ADT_COMPONENT_OType; 

coiteni  Type  ‘SB  J3imATOR_(XlMPC»4Ehn'_arype; 

CKleni  Type  •SB_ADT_OPERATOR_OType; 

cKteni  T^  *SB  JD_DBCLJDICTTONARY_OType; 

exleni  Type  •SB_JD_DECL_OType; 

extcni  Type  •SB_TYre_fJ  AME_OType; 

cxteni  Type  •SB ja)T_OreRATt)RJ)ICnONARY_OType; 

extem  Type  •SB_EXCEPnON_DICnONARY_OType; 

extcni  Type  •SB_TYPE_USAGE_OType; 

atem  Type  *SB_TYPE_USAGE_DICnONARY_OType; 

extem  1^  •SB_RECOGNlZED_TYPES_Cyiype; 

extent  SBJJBRARY  *SB_MA1NJLIBRARY; 

//ADDED 

extern  Type  •SB_COMPONENT3tATCHES_DICnONARY_OType; 

«  define  DEFAULT_NAME_SIZE  21 

^define  SB_UNRECOGNlZED_TYPE  1 

#define  SB_BASE_TYPE  2 

#define  SB_GENERIC_TYPE  3 

«define  SB.GENERIC.SUBPROGRAM  4 

#dcline  SB_GENERIC_  VALUE  5 

#define  SB_ABSTRACT_DATA_TYPE  6 

«define  SB.ARRAY  7 

«define  SB_ARRAY_INDEX  8 

#define  SB_ARRAY_ELEMENT  9 

//ADDED 

«define  ALL.REGIONS  24 
#delincINPUT_REGIONS  18 
#defineOUTPUT_REGIONS  17 

//ADDED 

//  set  value  for  a  null  pointer 
idefineNULLO 
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filouiiiie:  sbocl.cxx 

f*  Oiiginal  software  for  CAPS  strftware  base  developed  by 
John  Kelly  McDoweU. 


Modified  •  31  August  1993  by  Scott  Dolgoff 
Because  modifications  were  fairly  extensive  in  this  module, 
refer  to  McDowell's  thesis  to  see  what  the  original  code 
looked  like.  Essentially,  his  by.num.unrecognized.dictionary  has 
been  removed  from  the  complex  data  hierarchy.  In  its  place  are 
two  new  dictionaries:  input_signature  and  output.signature. 

I  have  put  my  variables  in  UTi^ER  CASE  to  help  differentiate.  */ 


#  include  "sball.hxx" 

#  include  "sbextem.h" 

//  ADDED 
#include  "Signature.h" 
#include  <Set.h> 
#include  <Mmitives.h> 


SB_OPERATOR_OOMPONENT_UBRARY;.SB_OPERATOR_COMPONENTJJBRARY(AH,**eAPL) 

ObjectftheAPL) 

{ 

): 


SB  OreRATOR_COMPONENT_LIBRARY::SB_OPERATOR_COMPONENT_LIBRARY0 :  ObjectO 


SB_COMPONENT_DICTIONARY*new_operator_componcnt_dictionary= 
new  SB_COMPONENT_DICT[ONARY(); 


the_operatar_component_dictionaiy= 

new_(^rator_component_dictionaty->findTRef(); 


Dictionary  *new_state_dictionary=new  Dictionary(OC_integn, 

OC_dictionaiy, 

TRUE. 

FALSE); 


the_state_dictionaty=new_state_dictionaiy->findTRcfO; 

Dictionary  •new_non_statc_dictionary=nev  ■onary(OC_integer, 

<X;_dictionary, 

■rauE, 

FALSE); 


341 


lhejnoiustate_dk1ioiiay=4iew_iMm.state_dictioiMiy->findTRefO; 


I; 


void  SB_OPERAT01L.COMPONENT_lJBRARY:;Dc8tioy(Boofean  aborted) 

{ 

opentct_camponent_dictionaiy()->D6Stioy(  aborted); 

//  now  must  iterate  thiough  the  multi-attribute  query 
U  dictionary  tree 


Dklionary  *leaf_dictionary; 

Dictionary  *by_num_inputs_dictionaty: 

Dictkmaiy  *byjnum_unrecognized_dictionaty; 
Dictionary  *by_num_ouq>uts_dictionaty: 

by_num_inputs_dictionaty=state_dictionaty(): 

Dictionarylterator  next_input_dictionaiy= 
DictionaryIterat(»(by_num_inputs_dictionary); 

while(next  input.dictionary.moreDataQ) 

by_num_unrecognized_dictionary= 

(Dictionary  *)(Entity  •)next_input_dictionary(); 


Dictionarylterator  next_outputs_dict(by_num_untecognized_dicdonary); 

while(next_outputs_dict.moreData()) 

( 

by_num_outputs_dictionary=s(Dictionary  •)(Entity  •) 
next_outputs_dict(); 


Dictionarylterator  nextjeaf_dict(by_num_outputs_dictionary); 

while(next_lcaf_dictmoieDataO) 

{ 

leaf_dictionary=(Dictionary  •)(Entity  •) 
next_leaf_dict(); 

Dictionarylterator  next_component(leaf_dictionary); 


while(next_component.moreDataO) 

( 

((SB_OPERATOR_COMPONENT  *)(Entity  *)ncxt_component())-> 
Destroy(aborted); 

}; 

leaf_dictionary->Oestroy(aboited); 

): 

by_num_ou^uts_dictionaiy->Destrpy(aborted); 

1; 

by_num_unrecognizcd_dictionaiy->Dcstroy(aborted); 
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); 

by_numJn|Mtt_dictkmaiy->Destioy(  aborted); 


by_nuin_inputs_dictionary=non_statB_dictionaiy(); 


next_input_dictionaiy= 

DktioiuiyItentQ((by_nuin_inp\its_dictionaiy); 

while(next  input_dictionary.inoreDataO) 

{ 

by_iium_iiiirecognized_dictionary= 

(Dictionary  ‘XEntity  *)next_input_dictionary(); 


Diclionaiyltnator  next_outputs_dict(by_niim_unrecognized_dicljonary); 
while(next  ou^uts  dict.moreDataO) 

{ 

by_num_outputs_dictionary=(I>ictionaiy  ‘XEntity  •) 
next_oulputs_dict() ; 


Dictionaiylterator  next_leaf_dict(by_nuni_outputs_dictionaiy); 

while(next  leaf.dictmorcDataO) 

I 

teaf_dictionaiy=(Dictionary  *)(Entity  •) 

next_leaf_dictO; 

Dictionaiylterator  next_componenXleaf_dictionary); 


while(next_coinponent.moreDataO) 

{ 

((SB_OPERATOR_COMPONENT  ‘XEntity  *)next_componenX))-> 
Destroy(aborted); 

); 

leaf  dictionary->Destroy(aboited); 

}; 

by_num_outputs_dictionaiy->Destroy(aborted); 

); 

by  num_unrccognized_dictionaiy->Destroy(aborted); 

); 

by_nuni_inputs_dictionaty->Destroy(abortcd); 

delete  the_operator_coniponent_dictionaiy: 
delete  the_state_dictionary; 
delete  the_non_state_dictionary; 

}; 

vend  SB  OPERATOR_COMPONENT_LIBRARY::deleteObject(Boolean  deallocate) 

{ 

operator_component_dictionaty()->deleteObject(deallocate); 
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Oictioiiary  *lBa(.<iiiCtHinaiy; 

IXctowty  *byjMim JiQMts.dictkiiuiy; 
Didioiuiy  *by_nimi_uiiieoognjzed_dictianaiy; 
Dictkaury  *l9_num_ou^ts_dictionaiy; 

by_^omJniwls_dictionaiy=sUie_dictioiuiy(); 


Dktkmuylterator  next_input_(lictianary(by_nuni_inputs_dictionaiy): 

while(next_input_dictioiury.inoreDaUO) 

{ 

by_raiin_unrecogiiized_dictionaiy= 

(Dktkmaiy  •XEntity  •)next_input-dictiofUBy(); 


DictionaryIteratarnext_outputs_dict(by_num_uniecogni2ed_dictioi»My): 

while(next_ou5)uts_dict.nioreDataO) 

by_num_outputs_dictionary=(Dictionaiy  *XEntity  *) 
next_ouq>uts_dictO; 


Dictionaiylterator  next_leaf_dict(by_num_outputs_dictionMy); 
while(next_fc*f_dictmoreDataO) 
leaf_dictionaiy=(Dictionary  *KEntity  •) 

next_leaf_dictO; 

Dictionaiylterator  next_component(leaf_dictionaiy); 


while(next_coinponent.inoreDataO) 

{ 

((SB_OPERATOR_COMPONENT  ‘XEntity  •)next_coinponenX))-> 
delet«Object(FALSE); 

); 

leaf_dictionary->deletcObjecXFALSE); 

by_nuin_ou^uts_dictionary->delcteObject(FALSE); 

); 

by  num  unrecognized_dictionary->deleteObjcct(FALSE); 
l^_nuin_inputs_dictionary->deleteObjcct(FALSE); 


by_num_inputs_dictionary=non_state_dictionary(); 


next_input_dictionaiy= 

DictionaryIteratori.by_num_inputs_dictionary); 

while(next_input_dictionary.moreDataO} 
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by_iMiin_unrecogn*'’<sd_dictk)naiy= 

(Dictionary  •XEntity  •)ncxt_input_dictionary(); 


Dktionvylterator  next_outputs_dk:l(by_niim_iinrecogni2ed_(lictionaiy); 
while<next  oulputs.dict.moreDataO) 

{ 

by_nuin_outpiits_dictionary=(DictiDnaiy  ‘KEntity  •) 
iiext_ouiputs_dictO; 

DictkatarylteratcHr  next_leaf_dict(by_iiuin_ou^ts_diclionaiy); 

while(next_leaf_dictmoreDataO) 

leaf_dictionary=(Dictionary  ‘KEntity  *) 
next_leaf_dict(); 

Dictionarylterator  next_component(leaf_dictionaxy); 


while(next_coinponent.inareData()) 

{ 

((SB_OPERATOR_COMPONENT  ‘XEntity  •)next..coinponenX))-> 
deleteObject(FALSE); 

}; 

leaf_dictionary->deleteObjecl(FALSE); 

); 

by  num  ou^uts  dictionary->dclet<Object(FALSE); 

):  ' 

by  num  unrccogivized_dictionary->deleteObjcct(FALSE); 

):  " 

by_num_inputs_dictionary->deleteObjcct(FALSE); 

Object:  :deleteObjecXdeaUocate); 


); 


void  SB_OPERATOR_COMPONENT_lJBRARy::putObjcct(Boolean  deallocate) 

{ 

operator_componcnt_dictionary()->putObject(deallocate); 

state_dictionaiyO->putObject(deallocate): 

non_state_dictionary(>->putObjecXdcallocate); 

ObjecL':putObject(deal]ocate): 


): 


Type  ♦SB_OPERATOR_COMPONENT_LIBRARY;:getDirectTypeO 

{ 

return  SB_OPERATOR_COMPONENT_LIBRARY_OType; 

}: 


345 


SB_CX)MPONENT_DICnONARY 

•SB_OPERATOR_COMPONENT_LIBRARY::operatcr_coinponeiUL.dictk)nMyO 

{ 

return  (SB.COMPONENTJDICnONARY  •XEntity  •) 
the_opefator_component_dicti0nafy->Bindin£(); 

): 

Dictionary  *SB_OPERATOR_COMPONENT_LIBRARY::state_dictionaiyO 

I 

return  (Dictionary  *XEntity  *)the_state_diciionaty->Binding(); 

}: 

Dictionary  *SB_OPERATOR_COMPONENT_LIBRARY::r>on_state  dictionaryO 

{ 

return  (Dictionary  *XEntity  *)the_non_state  dictionary->Binding(); 

): 

U  ADDED  sig_file  as  a  parameter  to  "add"  function 

Boolean  SB_OPERATOR_COMPONENT_LIBRARY;:add(SB_OPERATOR_CX)MPONENT  ‘newjcoinponent. 


Boolean  retum_flag=TRUE; 

Dictionary  •leaf_dictionaty; 

Dictionary  *by_num_inputs_dictionaiy; 

//ADDED 

Boolean  NEW_INPUT_SIGNATURE_ARRAY  =  FALSE; 
Boolean  NEW_OUTPUT_SIGNATURE_ARRAY  =  FALSE; 
Dictionary  •BYJNPUT_SIGNATURE_DICnONARY; 
Dictionary  *BY_0UT1>UT_SIGNATURE_DIC110NARY; 

//  ADDED  —  class  SIGNATURE  comes  from  Signature.!) 
SIGNATURE  SIG; 

Dictionary  *by_num_outputs_dictionary; 

operatar_component_dictionary()->add(new_componcnt); 

operator_component_dictionary()->Dictionaty;;putObject(); 

//  insert  into  the  component  dictionary  was  successful! 

//  so  insert  it  into  the  library 

if(new_componcnt->states()=TRUE) 

{ 

by_num_inputs_dictionary=state_dictionary(); 

) 

else 

{ 

by_num_inputs_dictionary=non_state  dictionaryO; 

}; 


//  have  correct  state  dictionary  so  now  frnd  correct 
//  input  dictionary 
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if(by  num  inputs_dictionary->isIndex(new_component->nuin_inpute())=TRUE) 

{ 

by_num_ouq)uts_dictionary=(Dictionary  *) 

(Entity  •K*by_num_inputs_dictionary) 

(new_cafnponcnt->numJinputsO]: 

} 

else 

I 

by_num_ouq?uts_dictionary=new  Dictionaiy(OC_intBger, 

OC.dktionsy, 

TRUE. 

FALSE): 


by_nuin_inputs_dictionary->Inseit(new_component-> 

num.inputsO, 

by_num_outputs_dictionary); 


); 


//  Have  correct  dictionary  for  the  component's  number  of  ou^uts. 

U  Now  get  correct  INPUT_SIGNATURE  dictionary. 

if(by_num_outputs_dictionaiy->isIndex(new_component->num_outpuU())=TRUE) 

BY_INPUT_SIGNATURE_DICTIONARY=(Dictionary  *) 

(Entity  •)(*by_num_outputs_dictionary) 

(new_componcnt->num_ouqputsO]; 


else 

( 


BY_INPUT_SIGNATURE_DICrnONARY=newDictionffly(OC_array, 

OC_dictionaiy, 

FALSE, 

FALSE); 


by_num_outputs_dictionary->Insert(new_component-> 

num_outputsO, 

BY_INPUT_SIGNATURE_DICnONARY); 


); 


//  first  get  the  SIGNATURE  value  from  SIG_FILE 
ifstream  S1GNATURE(SIG_FILE); 
int  REGION.  REGION.VALUE; 

Array  ‘INPUT.SIGNATURE.ARRAY  =  new  Array  (OCJntegcr.  ALL.REGIONS.  1); 
for  (REGION=l:  REGION  <=  ALL_REGIONS;  ++REGION) 
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( 

SIGNATURE  »  RBGION.VALUE; 

INPUT  SIGNATURE_ARRAY->setElement(REGION.REGION_VALUE); 

} 

//  Can't  use  isindex  to  see  if  the  new  signature  is  already  an 
II  index  in  the  dictionary  because  each  index  is  an  c^ject 
//  with  a  unique  id.  Therefore,  must  iterate  through  indices 
//  and  see  if  one  isSimilar  (i.e.  of  equal  value)  to  the 
//  INPUT_SIGNATURE_ARRAY. 

Array  •FOUND_INDEX_ARRAY: 
intNOT_DONE=  1; 
int  INDEX_FOUND  =  0; 

Dictionarylteratar  NEXTJNPUT_SIGNATURE  = 

DictionaiylteraMB  Y_INPUT_SIGNATURE_DICTIONARY,  TRUE); 

whiM  NEXTJ(NPUT_SIGNATURE.moreDataO  &&  NOT.DONE ) 

{ 

FOUND_INDEX_ARRAY  =  (Array  *)(Entity  •) 

NEXT.INPUT  SIGNATUREO; 


//  compare  the  two  signature  arrays 

if  (FOUND_INDEX_ARRAY->isSimilar(INPUT_aGNATURE_ARRAY)) 

( 

NOT.DONE  =  0; 

INDEX_FOUND=l; 


if(INDEX_FOUND) 

{ 

By_OUTPUT_SIGNATURE_DICnONARY=(Dictionaiy  ‘XEntity  •) 

(•BY_INPUT_SIGNATURE_DICnONARY)  [FOUND JNDEX.ARRAY]; 


) 

else 

{ 


BY_OUTPUT_SIGNATURE_DICrnONARY=iiewDictionaiy(OC_array. 

OC_dictionary, 

FALSE, 

FALSE); 


NEW_INPUT_SIGNATURE_ARRAY  =  TRUE; 

BY_INPUT_SIGNATURE_DICnONARY->Insert(INPUT_SIGNATURE_ARRAY, 

BY_OUTPUT_SIGNATURE_DICnONARY); 


); 


//  get  OUTPUT.SIGNATURE  from  SIG.HLE 
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Anrny  •OUTPUT_SIGNATURE_ARRAY  =  new  Array  (OC.integci.  ALL_RBGIONS,  1); 

for  (REGION=l;  REGION  <=  ALL.RBGIONS;  ++REGION) 

{ 

SIGNATURE  »  RBGION.VALUE; 

OUTPUT  SIGNATURE_ARRAY->se*Element(REGION.  REGION.VALUE); 

) 


//////////////// 

//  Can't  use  isindex  to  see  if  the  new  signature  is  already  an 
//  index  in  the  dictionary  because  each  index  is  an  object 
//  with  a  unique  id.  Therefore,  must  itNate  through  indices 
//  and  see  if  one  isSimilar  (i.e.  of  equal  value)  to  the 
//  OUTPUT_SIGNATURE_ARRAY. 

NOT_DONE=l; 

INDEX_FOUND  =  0; 

Dictionarylterator  NEXT_OUTPUT_SIGNATURE  = 

DictionaiyIterator(BY_OUTPUT_SIGNATURE_DlCTIONARY.TRUE); 

while(  NEXT_OUTPUT_SIGNATURE.moreDato()  &&  NOT.DONE ) 

{ 

FOUND_INDEX_ARRAY  =  (Array  *)(Entity  •) 

NEXT_OUTPUT_SIGNATURE(); 


//  compare  the  two  signature  arrays 

if(FOUND_INDEX_ARRAY->isSimUar(OUTPUT_SIGNATURE_ARRAY)) 

NOT.DONE  =  0; 

INDEX_FOUND=  1; 

}: 

} 

ili(INDEX_FOUND) 

{ 

leaf_dictionary=(Dictionary  *)(Entity  *) 

(•BY_Oin?UT_SIGNATURE_DICTIONARY)[FOUND_INDEX_ARRAY); 


} 


else 

{ 

leaf_dictionary=ncw  Dictionary(OC_string, 

SB_COMPONENT_OTypc, 

FALSE. 

FALSE); 


NEW_OUTPUT_SIGNATURE_ARRAY  =  TRUE; 


BY_OUTPUT_SIGNATURE_DICTIONARY->Insert(OUTPUT_SIGNATURE_ARRAY, 

leaf_dictionary); 


}: 
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//  have  the  leaf  dictionaiy  so  now  insert  tfw  compotent  into  it 
leaf_dictionaty->Inseit(new_component->componentjname(), 

new.component); 


leaf_dictianaty->puiObject(): 

by_num_inputs_dictionaiy->putObject(); 

ly_num_outputs_dictionaiy->putObject(); 

BYJNPinLSIGNATURE_DICnONARYo^tObject0; 
BY_OUTPUT_SIGNATURE_DICnONARY->puiC»>jectO: 
if  (NEWJNPUT_SIGNATURB_ARRAY) 

INPUT  SIGNATURE_ARRAY->pulObject(); 
if  (NEW_OUTPUT_SIGN  ATURE_ARRAY) 
OUTPUT_SIGNATURE_ARRAY->putObjeet<); 

return  retum_flag; 

): 


void  SB_OPERATOR_COMPONENT_IJBRARY;. 
delcte_component(SB_OPERATOR_COMPONENT*tfie_component) 
{ 


Dktion&y  ♦leaf.dictionaiy; 

Dictionary  •by_nuni_inputs_dictionary; 
Dictionaiy  •by_nuin_unrecognized_dictionaiy; 
Dictionaiy  •ty_num_ou^uts_dictionaiy; 

operatar_component_dictionaryO-> 

Rcmove(thc_coniponent->componcnt_nanicO): 

opcrator_componcnt_dictionaiy()->putObject(); 


if(the_component->states()==TRUE) 

by_num_inputs_dictionary=state_dictionaiyO; 


else 


{ 

by_num_inputs_dictionaiy=non_statc_dictionaiy(); 

): 


//  have  correct  state  dictionary  so  now  find  correct 
//  input  dictionary 

if(by  nuni_inputs_dictionary->isIndex(the_componcni->num_inputs())=TRUE) 

by_nuin_unrecognized_dictionary=(Dictionary  *) 

(Entity  *)(*by_num_inputs_dictionary) 
(thc_component->nuin_inputs()]; 
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//  got  the  unrecognized  dictionaiy 

//  use  num  generics  since  for  a  library  unit  all  unrecognized  types 
//  must  be  generics 

if(by_num_uniecognized_dictionary-> 

isIndex(the_component->num_generic  types())=:TRUE) 

( 


by_num_outputs_dictionary=(Oictionaiy  •)(Entity  •) 
(*by_num_unrecognized_dictionary) 
[the_coinponent->num_generic_types01: 

if(by_num_oulputs_dictionary-> 

isIndex(the_component->num_ou^utsO)='T1lUE) 

{ 

leaf_dictionary=(Dictionary  *)(Entity  *) 

(*by_num_outputs_dictionary) 

[the_component->num_outputs01; 

//  have  to  leaf  dictionary 

leaf_dictionary->Remove(the_component->component_nameO); 

lcaf_dictionary->putObjcct(); 

if(leaf_dictionary->Cardmality()=0) 

{ 

by_num_outputs_dictionaiy-> 

Remove(thc_componcnt->num_outputsO); 

by_num_outputs_dictionary->putObject{); 

if(by  num  ouqiuts  dictionaiy->Cardinality()=0); 

{ 

by_num_unrecogni2ed_dictionary-> 

Remove(thc_component->num_generic_types()); 

by_num_unrecognized_dictionary->putObjcct(); 

if(by_num_unrecognized_dictionaiy->Cardinality()=0) 

{ 

by_num_inputs_dictionaiy-> 

Rcmovc(thc_component->num_inputsO); 

by_num_inputs_dictionary->putObject(); 

by_num_unrccognized_dictionaiy->deleteObject(TRUE); 

}; 

by_num_outputs_dictionaiy->deleteObjcct(TRUE): 

): 

leaf_dictionary->deleteObjcct(TRUE); 

}; 

); 

); 

}; 


); 


SB_COMPONENT_MATCHES_DICnONARY*SB_OPERATOR_COMPONENT_UBRARY; 
queiy(SB_OPERATOR_COMPONENT  •qucry_component) 

//MODIFIED 
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SB.C»MPa4Ern'JbtA1XnMES JJICncmARY  •qiMsy.iMiilt  s  new 

S»_COMI<)NENT>lATCHESJ>ICnC)NARY0; 

//ADDED 

//  OC.amy  conesponds  to  a  particular  tignature  value. 

//  OC  JniBgeT  is  type  closeness  value  of  that  signature. 

Dictionary  •INPUT_CLOSENESS_DICnONAR  Y  =  new  Dictionaiy(OC_anay. 

OC_intBgcr, 

FALSE, 

FALSE); 


Dictionary  *leaf_dictionaiy; 

Dictionary  •by_nuni_inputs_dictionaiy; 

Dictionary  *by_num_ou4>uts_dictionary; 

//ADDED 

Dictionary  ‘BY JNPUT_SIGNATURE_DICnONARY; 
Dictionary  •BY_OUTPUT_SIGNATURE_DICnONARY; 


//  ADDED  —  class  SIGNATURE  comes  from  Signature.h 
SIGNATURE  SIG; 

int  QUERY JN_SIG(ALL_REGIONS]; 
int  QUERY_OUT_SIG(  ALL.REGIONS]; 
int  SB  JN_SIG[ALL_REGIONSl; 
int  SB_OUT_SIG{AlJL_REGIONS]; 
int  REGION: 
int  MATCH; 


//  Get  the  signatures  from  the  queiy  component 
SIG.GET.SIGNATURES  (QUERY_IN_SIG,  QUERY.OUT.SIG); 

//  get  the  correct  state_dictionaty  to  start  the  query 

if(query_component->states()=TRUE) 

{ 

by_num_inputs_dictionary=state_dictio’iary(); 

) 

else 

{ 

by_num  inputs_dictionaty=non_state_dictionary(); 

): 

//  have  correct  state  dictionary  so  now  find  correct 
//  input  dictionary 

//  inputs  must  match  exactly  so  only  get  one  dictionary 

if((by_num_inputs_dictionaty->isIndex(query_component->num_inputsO))=TRUE) 

by_num_outputs_dicuonary  = 

(Dictionary  *)(Entity  *)(*by_num_inputs_dictionary) 
(qu«y_component->num_inputs()]; 
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//  Got  the  cone^xMiding  output  dictionary  to  now  go  through  and 
//  get  the  INPUT  SIGNATURES  that  are  in  dictionafiea  with 
//  number  of  ouqwt  parameters  greater  than  or  equal  to  the 
//  query  component 


Dktionaiyltrrator  NEXTJNPUT.SIGNATURE.DICITCWARY  s 
DictionaiyIterator(by_num_outpuu_dictionaiy, 

FALSE. 

query_oomponent-> 

num.ouqwtsO); 


while<NEXT_INPUT.SIGNATURE  DICTIONARY  jncrcDataO) 

BYJNPUT_SIGNATURE_DICTIONARY  a  (Dictionary  'KEntity  •) 
NEXT_INPUT_SIGNATURE_DICTIONARY0: 

H  Got  an  Input  Signatiue  dictionary. 


//  got  an  INPUT  SIGNATURE  dictionary  so  iterate  over  it  for  the 
//  OUTPUT  SIGNATURE  DICTIONARIES.  The  dictionary  indices  which  are 
//  Array  objects  corresponding  to  Input  Signatures  «e  returned. 

//  Only  those  OUITUT  SIGNATURE  DICTIONARIES  will  be  examined  where 
//  the  INPUT  SIGNATURE  of  the  stored  component  matches  the  INPUT 
//  SIGNATURE  of  the  query  component 
Dictionarylterator  NEXT_INPUT_SIGNATURE  a 
DictionaryIterator(BY_INPUT_SIGNATURE_PICnONARY.TRUE); 

//  Create  a  temporary  set  to  store  all  matched  signatures  in 
//  for  that  particular  INPUT  SIGNATURE  dictionary. 

//  Loop  through  all  of  the  INPUT  SIGNATURES  few  that  dictionary. 

Set  ’MATCHED JNPUT.SIGNATURES; 

MATCHED_INPUT_SIGNATURES  =  new  Set(OC_array); 

while(NEXTJNPUT_SIGNATURE.moreData()) 

{ 

Anay  •INPUT_S1GNATURE  =  (Array  ’jOEntily  *) 

NEXT_INPUT_SIGNATUREO; 

H  Load  the  Array  object  into  a  C++  array. 

for  (REGION=l;  REGION  <=ALL_REGIONS:  ++REGION) 

{ 

//Note;  C++  array  goes  from  0 ..  ALL_REGIONS  -1 
SBJN_SIG[REGION  - 1]  = 

•(  anteger  *)  (Entity  *)  (’INPUT.SIGNATURE)  [REGION]); 

) 

//  Check  to  see  if  we  have  matching  input  signatures. 

MATCH  =  SIG  MATCH  JNPUT_SIGNATURES(QUERY JN_SIG,  SB  JN_SIG); 
if  (MATCH  ==1) 

[ 


//  Check  for  False  Match. 

//  If  MATCH  >=  0  then  we  have  a  valid  match  and  the 
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//  value  ctf  MATCH  it  die  type  cloeenett  depee. 

MATCH  s  aC.CHECieFALSELMATCSKQUERY JN.SIO.  SB JN_aO); 
if  (MATCH  >=0) 

( 


//  Add  the  software  base  component  siKnatuie  to  the 
//  set  of  matched  signatures. 

MATCHED_INPlJT_MGNATURES->Inae«i(INPUT_SIGNATURE); 


//  Add  type  closeness  information 

INPin'_ClX)SENESSJDICTlC»4ARY->Inaetl<INPirr_SIGNATUI^ 

MATCH); 

); 

): 

);  //  end  iterate  through  Input  Signatures 


//  Now,  go  through  the  set  of  matched  signatures,  and  check 
//  the  corresponding  OUTPUT  SIGNATURE  dictionaries. 

Setlterator  NEXT_OUTPUT_SIGNATURE_DICnONAR  Y  * 
Seaterator(MATCHEDJNPUT_SIGNATURES); 

while  (NEXT_OUTPUT_SIGNATURE_DICTIONARY.inoieData()) 

{ 

Array  •aGNATURE.DICTlONARY.INDEX  =  (Array  •)  (Entity  •) 

NEXT.OUTPUT.SIGNATURE.DICnONARYO; 

BY_OUTPUT_SIGNATURE_DICTIONARY  =  (Dicdonaiy  •)  (Enti^  •) 
(*BYJNPUT_SIGNATURE_DICTIONARY)(aGNATURE_DICrnONARY_INDEXl; 


//  Got  an  Output  Signature  dictionaiy. 

//  Create  a  temporary  set  to  store  all  matched  signatures  in  for 
//  the  specific  OUTPUT  SIGNATURE  dictionary. 

//  Loop  through  all  of  the  OUTPUT  SIGNATURES  in  that  dictionary. 

Set  •MATCHED_OUTPUT_SIGNATURES; 
MATCHED_OUTPUT_SIGNATURES  =  new  Set(OC_artay); 

//  Only  those  output  dictionaries  will  be  examined  where  the 
//  OUTPUT  SIGNATURE  of  the  stored  component  matches  the 
//  OUTPUT  SIGNATURE  of  the  query  component 
Dictionaiylterator  NEXT_OUTPUT_SIGNATURE  = 

DictionatyIterator(BY_OUTPUT_SIGNATURE_DICnONARY.TRUE); 

//  Temporary  dictionary  to  store  closeness  information  in. 

//  OC_array  corresponds  to  a  particular  signature  value. 

//  OC_integer  is  a  combination  of  the  type  closeness  value  of 
//  that  signature  and  the  number  of  output  parameters  that 
//  software  base  component  has  in  excess  of  the  query  component 
Dictionaiy  •OUTPUT.CLOSENESS.DICTIONARY  = 

new  Dictionaty((X_array, 

OC_integer, 

FALSE, 

FALSE); 
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whik<NECT_OUTPUT_SIGNATURE.iiK3*d)*to()) 

{ 

Array  •OUTPUT.SIGNATURE  =  (Array  •KEndty  •) 

NEXT.OUTTOT.SIGNATUREC); 

//  Load  the  Anay  object  into  a  €-*-»■  array, 
for  (RBGION=l;  REGION  <=AU._RBGIONS;  ++REGK»0 
//  Note;  C++  array  goes  fiom  0 ..  ALL.REGICWS  - 1 
SB_OUT_SIGIREGION  - 1)  =  •(  (Integer  •)  (Entity  •) 
(•OUTPUT.SIGNATURE)  IREGIC94]  y. 

H  Check  to  see  if  we  have  matching  OUTPUT  signatures. 

MATCH  =  SIGMATCH_OUTPUT_SK»IATURES( 

<5UERY_OUT_SIG.  SB.OUT.SIG); 

if  (MATCH  =1) 

{ 

//  Measure  type  closeness  degree. 

MATCH  =  SIG.CAIjC_OUT_CLOSE_DEGREE 

(QUERY_OUT_SIG.  SB_OUT_SIG): 

//  Add  the  software  base  component  signature  to  the 
H  set  of  matched  signatures. 

MATCHED_OUTPUT_SIGNATURES->Insett(OUTPUT_SIGNATURE); 
//  Add  closeness  information 

OUTPUT_CLOSENESS_DICnONARY->Insett(OUTPUT_SIGNATURE, 

MATCH); 


); 

)  H  end  iterate  through  OUTPUT  Signatures 


//  Now,  go  through  the  set  of  matched  signatures,  and  get 
//  the  corresponding  leaf  dictionaries. 

Setiterator  next_leafs_dict  = 
SeUterator(MATCHED_OUTPUT_SIGNATURES); 

while  (next_leafs_dictmoreData()) 

I 

Array  *SIGNATURE_DICT_INDEX  =  (Array  *)  (Entity  *) 

ne)it_leafs_dictO; 


leaf_dictionary  =  (Dictionary  •)  (Entity  *) 

(•BY_OUTPUT_SIGNATURE_DICTIONARY)[SlGNATURE_DICT_INDEX]; 

//  Got  the  corresponding  leaf  dictionary  so  now  go  through 
//  and  get  the  components  that  are  in  the  dictionary. 

Dictionarylto'ator  ne3it_component= 

DictionaryIterator(Ieaf_dictionary); 

whilc(ncxt_componentmorcDataO) 

SB_OPERATOR_COMPONENT  *the_component= 
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(SB_OPERATOR_CX»!PCWENT  •XEnliQr  •)i»«t_coiivonei^ 
//  cumntly  always  true 

if(qiiery_coinponMit->fUtcr(the_cainponeiit>szTRUE) 

{ 

//  put  the  components  in  the 
//  return  result  dictionary 

long  TOTAL_CLOSEKESS  =  10000; 

TOTAL_CLOSENESS  =  TOTAL.CLOSENESS  + 

( (th6_component->num_ou^ts0  * 

quay_component->num_outputsO)  *  1000)  + 

IWUT_CIjOSENESS_DICTICWARY-> 

getIntegesElement( 

SIGNATUREJDlCnONARYJNDEX)  + 
Oim>UT_CLOSENESS_DICnONARY-> 
getIntegerElement( 

SIGNATURE.DICTJNDEX); 


queiy_result->InseitCrOTAL  CLOSENESS,the_component); 

}; 

); 

); 

); 

); 

); 


//  add  code  to  interface  to  semantic  check  routine  here 
return  query_result; 

»; 


void  SB  OPERATOR_COMPONENT_LIBRARY::list(ofstream&  outstream) 

{ 

operator  component_dictionary()->printOn(outstream); 

I; 
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APPENDIX  G  -  MODIFICATIONS  TO  ORIGINAL 
CAPS  GRAPfflCAL  USER  INTERFACE  TAE 

SOURCE  CODE 


The  TAE  source  code  listed  below  contains  Ada  code  for  one  new  panel  developed 
for  this  thesis  (pan_niapping_s.a,  pan_mapping_b.a)  and  all  significant  modificaticHis  to 
TAE  source  code  originally  revised  by  Dogan  Ozdemir  [Ozde92]. 


..  ***  TAE  Plus  Code  Generator  version  V5.1 
-••♦File  :  global  s.a 

-  •••  Generated  :  May  21  16:12:31  1992 

-  •••  Revised  by  :  Dogan  Ozdemir 

_  *♦♦**♦****♦**♦*******•*•*****•*♦•*»*•***•♦•♦••*••*♦**♦*♦♦*•*••*•**••♦•**•* 

--  * 

-  •  Global  -  Package  SPEC 

„  ♦ 

**♦*♦♦♦******♦***•*•*♦♦***•*•♦♦*♦♦••*•♦»••••••*••••**••*♦•••**•***••*♦•**• 


with  X_Windows; 

with  Tcxt_IO; 

with  TAE; 

with  SYSTEM; 

use  TAE.SYSTEM.TejitJO; 

-ADDED 

with  CREATE_OPERATOR_PARAMETER_FILES_PKG.  PARAMETER_MAPPING_PKG, 
PARAMETER_UST_PKG; 

use  CREATE_OPERATOR_PARAMETER_FILES_PKG.  PARAMETER^MAPPING.PKG. 

PARAMETER_UST_PKG; 
with  PSDL_ID_PKG; 
use  PSDL_ID_PKG; 

package  Global  is 

-I  PURPOSE: 

—I  This  package  is  automatically  "with"ed  in  to  each  panel  package  body. 

—I  You  can  insert  global  variables  here. 

-I 

-I  REGENERATED: 

-I  This  file  is  generated  only  once. 

-I 

package  TaefloatJO  is  new  Text JO.FloatJO  (TAE.Taefloat); 

Default_Display_Id :  X_Windows.Display; 
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-AEOED 


-MODIFIED/ADDED 

libraiy  :  Suing  (1..10):=  (‘A'.’d'.’a’^erssy  ’); 

COMPONENT JS.OPERATOR .  BOOLEAN; 

Ub_to_delete  :  String  {1..10):=  (others=>’ '); 
path  :  Stiing(1..80):=  (others=>' "); 

pioto_piefa  :  String(1..80):=  (others=>"); 

Query_psdl  :  String(1..80):=  (others=>‘ '); 

Directory  :  String(1..80)~  (others=>‘ '): 
kwquefyjoutfile  :  String(1..15):="kwquefy_outfile"; 
quoy.outfile  :  String(1..13):='’quety_outfUe”; 

component  ;  Stiing(1..80);=  (oth«s=>'  ’); 

direcfaMy.atray  :  String  (1.^7):=  (othets*>' '); 

directory_file_name;  String(1..14)  :=  "directory_fUe"; 
lib_vec  ;  s_vector(1..20);=  (othets=>  new  STRING(1..10)); 

file_vec  :  s_vectQr(l  ..200):=  (othcrs=>  new  STRING(1..80)); 

Is_a_directoiy  :  Boolean;=FALSE; 

Upper_directoty  :  Boolean:=FALSE; 

Component_add  ;  Boolean:=FALSE; 

Component_update  :  Boolean:  =FALSE; 

Query  :  Boolean:=FALSE; 

cunent.directoty  :  array(1..20)  of  String(1..80); 
directory_file  :  file_type; 
cur_dir_index  :  integer:=l; 
lib_count  :  intcgcr:=0; 
num_of_cotnp  :  integer:=l; 

-MODIFIED 

com  :  constant  String:* 

7n/sun5  l/work/dolgoff/caps/src/software_b»sc/sb 

parse  :  constant  String:='7n/sun54/work/caps92/src/software_basc^tegratcr; 

guLdirectory  :  constant  String:='Vn/sun54/woik/caps92/src/user_interface/sb_interfacer; 


-ADDED 

OPERATOR_FILE_NAME  :  constant  STRING  :=  "opwatDr_psdLspec.txt"; 
TYPE_FILE_NAME  ;  constant  STRING  ;=  "type_psdLspcc.m''; 
PROTOTyPE_FILE_NAME :  constant  STRING  .=  "prolotypc_psdl_spec.txt"; 
com2  :  constant  Stting:= 

7n/sun5  l/work/dolgoff/caps/src/softwarc_base/opsig 
com3  :  constant  String:= 

"/n/sun5  l/work/dolgoff/csq)s/src/software_base/adtsig 
THE.STATUS  :  COMPONENT.STATUS; 

HAS.GENERICS  :  BOOLEAN; 

QC_m_PARAMS, 

QC_OUT_PARAMS, 

SBCJN_PARAMS, 

SBC_OUT_PARAMS, 

GEN_PARAMS  :  PARAMETERS; 

Qcj4_COUNT. 

QC_OUT_COUNT. 

SBC_IN_COUNT, 
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SBC_OUT_COUNT, 

GEN.COUNT  :  ttfrEGER; 

SBC.NAME. 

QCJiAME  .  PSDL_ID_PKG.PSDL_ID; 


y^>plication_Done  —  Subprogram  SPEC 


function  Application.Done 
return  Boolean; 

-I  WJRPOSE: 

—I  This  function  returns  true  if  a  "quit"  event  handler  has  called 
-I  Set_Application_Done,  otherwise  it  returns  false. 


—  .  Set_Application_Done  -  Subprogram  SPEC 


procedure  Set_  \pplication_Done; 

-I  PURPOSE: 

-I  This  procedure  can  be  used  by  an  event  handler,  typically  a  "quit" 
"I  button,  to  signal  the  end  of  the  application. 

-ADDED 


system_call  --  Subprogram  SPEC 


[nocedure  system_call(command :  STRING); 

-I  PURPOSE; 

—I  This  procedure  is  used  to  make  unix  system  calls  from  within  the  program. 


strlcn  -  Subprogram  SPEC 


procedure  strlen(s:  in  String;  n;  in  out  Integer); 

-I  PURPOSE: 

—I  This  procedure  is  used  to  get  the  length  of  strings. 
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list.directoty 


—  Subprogram  SPEC 


procedure  list_directoiy(file  :in  out  file_type; 

fUe_name;in  out  string; 
fUc_vec  :in  out  s_vector, 
1  :in  out  integer); 

-I  PURPOSE. 

--I  This  procedure  is  used  to  obtain  the  contents  of  unix  directory  structures. 


list_components  -  Subprogram  SPEC 


procedure  lisi_components({ile  -.in  out  file_type; 

fiJe_name:in  out  string; 
fUe_vec  :in  out  s_vector; 
I  ;in  out  integer); 

-I  PURPOSE: 

—I  This  procedure  is  used  to  read  the  component  list  from  a  text  file  and 
•'I  Rll  them  into  a  s_vector  structure  to  be  displayed  in  a  TAE  panel. 


read_directory  --  Subprogram  SPEC 


procedure  read_dircctory(file  ;in  out  filc_type; 

filc_name:in  out  string; 
dir_name  :in  out  string); 

-I  PURPOSE; 

—I  This  procedure  is  used  to  read  the  name  of  the  current  directory  and 
—I  to  get  the  path  from  a  text  file. 


errorstring  -  Subprogram  SPEC 


pirocedure  eirorstringffile  :in  out  file_typc; 

file_name;in  out  string; 
eir_str  :in  out  string); 

-I  PURPOSE: 

—I  This  procedure  is  used  to  read  the  error  message  given  by  the  software 
“I  base  program. 


360 


parse.line 


-  Subprogram  SreC 


procedure  parse_line(s:  in  String); 


-I  PURPOSE: 

"I  This  procedure  is  used  to  determine  if  the  selected  line  is  a  directory 
—I  or  a  file  and  if  it  is  a  directory  it  gets  the  identity  of  the  directory. 

md  Global; 


-  **♦  TAE  Plus  Code  Generator  version  V5.1 
--***FUe;  pan^mainmenu  b.a 
-*•*  Generated:  Sep  1  21:37:24  1993 

”  Revised  by  :  Dogan  Ozdemir 

_  «•«*««»«*•**«»*«**«•*«««**••*«***»«»•****«•««•»••••*••••»•»*«*•****••*•*•• 

..  * 

-  •  Panel_maimnenu  --  Package  BODY 

..  * 

..  ********»**»»********»*»*««***«««»*«**»«**»***•*•»*****«*•»****«**»•*»**** 

with  TAE;  use  TAE; 
with  TextJO; 
with  Global; 
use  TcxtJO,  Global; 

-ADDED 

with  OPERATOR_MATCH_ROUTINES.  CREATE_OPERATOR_PARAMETER_FILES_PKG; 
use  OPERATOR_MATCH_ROLmNES,  CREATC_OPERATOR_PARAMETER_FILES_PKG; 

-  One  "with"  statement  for  each  connected  panel, 
with  Panel_compsel; 

with  Panel_keyword; 

package  body  Panel_mainmenu  is 
-I  NOTES; 

—I  For  each  parameter  that  you  have  defmed  to  be  "event-generating"  in 
—I  this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
-I  has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 

"I  Add  application-dependent  logic  to  each  event  handler.  (As  generated 
-I  by  the  WorkBcnch,  each  event  handler  simply  logs  the  occurrence  of 
-I  the  event.) 

-I 

-I  You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
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-I  you  icgencratB  this  fik,  you  can  more  easily  cut  and  paste  your 
-I  modifications  back  in.  For  example: 

—I 


generated  code ... 

-  (■*■)  ADDED  youiinitials 
your  code ... 

-  (-)  ADDED 

mcne  generated  code ... 


REGENERATED: 

The  foUowing  WorkBench  operations  will  cause  regeneration  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel: 
mainmenu 


-I 


The  following  WorkBench  operations  will  also  cause  regeneration: 
An  item  is  deleted 
A  new  item  is  added  to  this  panel 
An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 
An  item's  generates  events  flag  is  changed 
An  item's  valids  changed  (if  item  is  type  string  and  connected) 
An  item's  connection  information  changed 
For  the  panel  items: 

cancel,  browse,  query,  help. 


-I  CHANGE  LOG. 

—I  1 -Sep-93  TAE  Generated 

-ADDED 

operator_file  :  file_type; 

type_fUc  :  file_type; 

operator_list  :  String(1..13):="operator_list"; 

type_list  :  String(1..9):="type_list"; 

Dummy  :  Boolean; 


—  .  Initialize_Panel  -  Subprogram  BODY 


procedure  hutiaIize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr )  is 

—I  NOTES:  (none) 

begin  -  Initialize_Panel 

Info  :=  new  TAE.Tae_WptEvent_Contcxt; 

Info.CoUection  :=  Col]ection_Read; 

TAE.Tae_Co.Co_Find  (Info.CoUection.  "mainmcnu_v".  Info. View); 
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TAE.T«e_Co.Co_Find  (Info.Collection,  "mainmenu_t“.  Info.Taiget); 
exception 

when  TAE.UNINrnAlJZED_PrR  => 

Text_IO.Put_Line  ("Panel_mainmenu.Initialize_Panel:  " 

&  “CoUection.Read  not  initialized."); 
raise: 

when  TAE.Tae_CoJ40_SUCH_MEMBER  => 

Text_IO.Put_Line  ("Panel_mainmenu.Initialize_Panel:  " 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize.Panel; 
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Create.Panel 


-  Sub{Kc^am  BODY 


procedure  Cieate_Panel 
( PaneLSute 

;  in  TAE.Tae_Wpt.Wpt_Flags 
;=  TAE.Tae_Wpt.WPT_PREFERRED; 

Rel*tive_Window 
:  in  X_Windows.Window 
;=  X_Windows  JilulLWindow  )  is 


-I  NOTES:  (none) 
begin  --  Cieate_Panel 

if  Info.Panel_Id  =  TaeJJull_Panel_Id  then 
TARTae_WptWpt_NewPanel 
( Dummy  => 

Data_Vm  =>  Info.Target, 

View_Vm  =>  Info.View, 

Relative_Window  =>  Relative_Window, 

User_Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =>  Info.Panel_Id ); 

else 

Text_10.Put_Line  ("Panel  (mainmenu)  is  already  displayed."); 

end  if; 

exception 

when  TAE.UNINniALIZED_PTR  => 

TcxtJO.Put_Linc  ("Panel_mainmcnu.Crcatc_Panel:  " 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO.Put_Line  ("Panel_mainmcnu.Create_Panel:  " 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Pancl; 
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Connect.Panel 


-  Subprogram  BODY 


procedure  ConnecLPanel 
( PaneLState 

:  in  TAE.Tae_Wpt.Wpt_Rags 
:=  TAE.Tae_Wpt.WPT_PREFERRED; 

Relative_Window 
:  in  X_Windows.Window 
;=  X_Windows  J<uU_Window  )  is 

-I  NOTES:  (none) 

begin  —  Connect_Pancl 

if  Info.PanelJd  =  TaeJ'full_Panel_Id  then 
Create_Panel 

(  Relative_Window  =>  Rclative_Window, 

Panei_State  =>  Panel_Statc ); 
else 

TAE.Tac_WpLWpt_SetPanelStatc  (Info.Pancl_Id,  Panci_State); 
end  if; 

exception 

when  TAE.Tae_WptJBAD_STATE  => 

Text_10.Put_Linc  ("Panel_mairunenu.Gjnncct_Pancl:  " 

&  "Invalid  panel  state."): 
raise; 

end  Connect_Panel; 
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Destioy_Panel 


-  Subpiognm  BODY 


procedure  Destroy.Panel  is 
-I  NOTES:  (none) 
b^in  "  Destroy.Panel 

TAE.T«e_Wpt.Wpt_PanelEr«se(Info.Panel_Id); 

exception 

when  TAE.Tae_WptB  AD_PANEL_ID  => 

Text_IO.Put_Line  {”Panel_niainmcnu.Destroy_Panel:  ” 

&  ”Info.Panel_Id  is  an  invalid  id."): 
raise; 

when  TAE.Tac_WpLERASE_NULL_PANEL  => 

"  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 

"  Trap  this  exception  and  do  nothing. 

null; 

end  Destroy_Pancl; 
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"  begin  EVENT  HANDLERS 


cancel.Event  -  Subprogram  SPEC  A  BODY 


procedure  canceLEvent 

( Info :  in  TAE.Tae_Wpt.Ev«u_Context_Ptr )  is 
-I  PURPOSE: 

—I  EVENT  HANDLER.  Insert  application  q>ecific  information. 

-I 

—I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1  ..TAE.Tae_Taeconf.STRINGSlzE); 
Count :  TAE.TacinU 

begin  -  canccLEvent 

—  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  (Info.Parm_Ptr,  Count); 
TextJO.Put  ("Panel  mainmenu,  parm  cancel:  value  =  "); 
if  Count  >  0  then 

TAE.Tac_Vm.Vm_Extract_SVAL  (Info.Parm_Ptr,  1,  Valued)); 
Text_IO.Put_Line  (Value(l)); 
else 

Text_IO.Put_Line  ("none"); 
end  if; 

—  End  default  generated  code 
-ADDED 

Global.Set_Application_Done; 

—  Begin  generated  code  for  Connection 

Destroy_Panel; 

-•  TCL:  Quit 

—  End  generated  code  for  Connection 
end  cancel.Event; 
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facowte_Event 


-  Subprogram  SPEC  &  BODY 


pniceouie  browse.Event 
( Info  :  in  TAE.Tae_Wpt.Event_Context_Ptr )  is 


--I  PURPOSE: 

—I  EVENT  HANDLER.  Insert  t^rplication  specific  infcxmation. 

-I 

-I  NOTES:  (none) 

Value :  array  (1..1)  of  Siring  (l..TAE.Tae_Taeconf.STRlNGSlZE): 

Count :  TAE-TaeinU 
-ADDED 
N  :integer:=l; 

begin  —  browse_Event 

-  Begin  default  generated  code 

TAE.Tae_Vm.  Vm_Extract_Count  (Info.Pann_Ptr,  Count); 

TextJO.Put  ("Panel  mainmenu,  parm  browse:  value  =  "); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  (Info.Parm_Ptr,  1,  Value(l)); 
Text_IO.Put_Linc  (Value(l)); 
else 

Text_JO.Put_Line  ("none"); 
end  if; 

-  End  default  generated  code 

-  Begin  generated  code  for  Connection 

-ADDED 

strlen(libraryJ4); 

if  TAE.Tae_Misc.s_cqual  (Value(l),  ’Types")  then  null; 

-ADDED 

system_call(com&"tl  "&libraiy(l..N)&"  "&"type_list"); 

list_components(type_fUe,type_Iistiile_vecjium_of_coinp); 

TAE.Tae_Wpt.Wpt_SetStringConslraints( 

Panel_compsel.lnfo.Panel_Id,"coinpsel",taeint(num_of_comp),file_vec); 
Dummy:=TAE.Tae_Wpt.Wpt_Pending; 
system_call("nn  type_list"); 

Connect.Panel  (TAE.Tae_Wpt.WPT JNVISIBLE); 
Panel_coinpsd.Connect_Panel  (TAE.Tae_Wpt.WPT_VlSIBLE); 

elsif  TAE.T8e_Misc.s_equal  (Value(l),  "Operators")  then  null; 

-ADDED 

system_call(com&"ol  "&library(l.J4)&"  "&"operator_list"); 
list_cofnponents(operator_filc,operator_list,fUe_veejium_of_«»np); 
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TAETM_Wpt.Wpt_SetStnngConstTaints( 
PaiwLcoiiq»el.Info.PanelJd,"coinpter4aeinl(num_of_cc(np)^_vec): 
DMinmy:=TAE.Tae_Wpt.Wpt_Pending; 
tyttem_caU("rm  operator.list"): 

ConneeU>«nd  CTAETie.Wpt.WPT JNVISIBLE); 
Panet^compfcl.Connect.Panel  (TAE.T«e_Wpt.WPT_VISIBLE); 

end  if; 

-  End  generated  code  f(»  Connection 
end  browse.Event; 


369 


qucfy_Evcnt 


-  Subprogram  SreC  &  BODY 


pfocedure  query_Event 

( Info  :  in  TAE.Tae_Wpt.Event_Contexl_Ptr )  is 
-I  PURPOSE: 

—I  EVENT  HANDLER.  Insert  ai^lication  specific  infcmnation. 

-I 

-I  NOTES:  (none) 

Value :  anay  (1..1)  of  String  (l..TAE.Tae_Taeconf.STRlNGSlZE); 
Count :  TAE.Taeint; 

-ADDED 

FINAL_MATCHES, 

OPERATOR_SIGNATURE_MATCHES :  FILE_TYPE: 

NUM. 

LEN  :  INTEGER; 

NO_MATCH  :  BOOLEAN  :=  TRUE; 

MATCH_FILE_NAME  :  STR1NG(1..1 1)  :=  "fmal.match”; 

begin  --  query_Event 

"  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  (Info.Parm_Ptr,  Count); 
TextJO.Put  ("Panel  mainmenu,  parm  query:  value  =  "); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  (Info.Parm_Ptr,  1,  Valuc(l)); 
Text_IO.Put_Line  (Value(l)); 
else 

Text_IO.Put_Linc  ("none"); 
end  if; 

—  End  default  generated  code 

-  Begin  generated  code  for  Connection 

if  TAE.Tae_Misc.s_equal  (Value(l),  "Keyword")  then  null; 
Connect_Panel  (TAE.Tae_Wpt.WPT_INVlSIBLE); 

Panel_key  word  ,Connect_Panel  (T  AE.Tae_Wpt  .WPT_VISIB  LE); 

elsif  TAE.Tae_Misc.s_equal  (Valuc(l),  "PSDL")  then  null; 
Connect_Panel  (TAE.Tae_Wpt.WPT_INVlSIBLE); 
Panel_compsel .Connect  Panel  (TAE.Tae_Wpt.W^_VISIBLE); 
-ADDED 

if  COMPONENTJS.OPERATOR  then 

—  get  signature  of  query  operator  component 
system_call(com2); 

—  get  ail  software  base  components  that  match  query 
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—  compcment  signature 

systan_call(com&“cq  Ada  "&OPERATOR_FlLE_NAKfiE&‘'  qucty_sig_match"); 

-  load  query  operator  component  parameter  moping  data  structures 
THE_STATUS  ;=  QUERY.COMPONENT; 

CREATE_OPERATOR_PARAMETER_FILES(THE_STATUS,  QC_IN_PARAMS.  QC_IN_COUNT, 
QC_OUT_PARAMS.  QC_OUT_COUNT.  GEN.PARAMS,  GEN.COUNT,  HAS.GENERICS, 
QC  .NAME); 

-  save  query  operator  component  psdl  files 

$ystem_call("cp  "&Global.OPERATOR_FILE_NAME&"  svopqjec.txt"); 
systein_call(”cp  "&GlDbaI.PROTOTYPE_FILE_NAME&”  svptotspec.txt"); 

OPEN(OPERATOR_SIGNATURE_MATCHES,  MODE  =>  IN.FILE. 

NAME  =>  query _sig_match"); 

CREATE(FINAL_MATCHES,  MODE  =>  OUT_FILE. 

NAME  =>  MATCH.FBLE.NAME); 

—  continue  to  filter  the  matched  components 

while  not  END_OF_nLE(OPERATOR_SIGNATURE_MATCHES)  loop 

—  get  a  candidate  component 

GET_LINE(OPERATOR_SIGNATURE_MATCHES,  COMPONENT,  LEN); 

—  get  the  component's  name 
strlen(COMPONENT.  LEN); 

—  get  the  psdl  file  associated  with  that  name 

system_ciu(com&"cv  Ada  "&COMPONENT(l..LEN)&"  ouq>sdl  outspec  outbody"); 

—  copy  the  software  base  component  psdl  file  into  the 

—  appropriate  files 

system_call("cp  outpsdl  "&OPERATOR_FILE_NAME); 
systcm_call("cp  outpsdl  "&PROTOTYPE_FILE_NAME); 

—  load  software  base  operator  component  parameter  mapping 

—  data  structures 

THE.STATUS  :=  SOFTWARE_BASE_COMPONENT; 
CREATE_OPERATOR_PARAMETER_FILES( 

THE_STATUS.  SBC_IN_PARAMS,  SBC_IN_COUNT, 

SBC_OUT_PARAMS,  SBC_OUT_COUNT,  GEN.PARAMS,  GEN.COUNT, 
HAS_GENERICS,SBC_NAME); 

if  HAS_GENERICS  then 

—  see  if  an  instantiation  of  the  software  c  jmponent  by  the 

—  query  component  is  possible 

FIND_INSTANTIA'nON(QC_IN_PARAMS,  QC.OUT.PARAMS,  SBC_IN_PARAMS. 
SBC_OUT_PARAMS.  GEN_PARAMS.  NO_MATCH); 


else 

—  no  generics  in  software  base  component  so  check  to  ensure 
"  both  components  match  at  the  Array  component  level  (i.e. 

—  array  element  and  index)  if  the  components  have  parameters 
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-oftype  AiT*y 

MATCH_ARRAYS(QC_IN_PARAMS,  QC_OUT_PARAMS,  SBC_IN .PARAMS, 
SBC_OUT_PARAMS.  NO_MATCH); 

Mtdif; 


if  not  NO_MATCH  then 

—  software  base  component  successfully  passed  this  filter 

—  so  add  it  to  "ftnal_match"  file 
PUT_LINE(FINAL_MATCHES,  COMPONENT); 

end  if; 

end  loop; 

CLOSE(OreRATOR_SIGNATURE_MATCHES); 

CLOSE(FINAL_MATCHES); 

—  restore  query  operator  component  psdl  files 
systcm_call("cp  svopspec.txt  "&OPERATOR_FILE_NAME); 
system_call("cp  svprotspec.txt  “&PROTO7YPE_FILE_NAME); 

—  remove  files  that  are  no  longer  needed 
system_call("rm  svopspec.txt"); 
system_call("rm  svprotspec.txt"); 
system_call("nn  query_sig_match"); 
systcm_call("rm  ouqisdl"); 
systcm_call("rm  outspec"); 
system_call("rm  outbody"); 

else 

“  get  signature  of  query  type  component 
sys  tem_call(com  3 ); 

—  get  ail  software  base  components  that  match  query 

—  component  signature 

system_call(com&"cq  Ada  "&TYPE_FILE_NAME&"  "&MATCH_FILE_NAME); 


end  if; 


—  load  the  component  selection  TAE  display  item  with 
~  the  components  listed  in  "final.match” 

list_components(FINAL_MATCHES,  MATCH_FILE_NAME.  FILE.VEC,  NUM); 
TAE.Tae_WptWpt_SctStringConstraints( 
Panel_compsel.Info.Pancl_Id,"compsel",tacint(NUM),FlLE_VEC); 
Dummy:=TAE.Tac_WptWpt_Pcnding; 


—  remove  files  that  are  no  longer  needed 
system_call("rm  "&MATCH_FILE_NAME); 

end  if; 
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-  End  generated  code  for  Connection 
end  qu«y_Evenl; 


heIp_Event 


-  Subprogram  SPEC  &  BODY 


procedure  help.Event 

( Info :  in  TAE.Tae_Wpt.Event_Context_Ptr  )  is 
-I  PURPOSE: 

-I  EVENT  HANDLER.  Insert  application  specific  infcnmation. 

-I 

-1  NOTES;  (none) 

Value ;  array  (1..1)  of  String  (l..TAE.Tae_Taeconf.STRINGSlZE); 
Count :  TAE.Taeint; 

begin  -  help_Event 

—  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  (Info.Parm_Plr,  Count); 
TextJO.Put  ("Panel  mainmenu,  parm  help:  value  =  "); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  (Info.Parm_Ptr,  1,  Value(l)); 
TextJO.Put_Line  (Value(l)); 
else 

Text_IO.Put_Line  ("none"); 
end  if; 

--  End  default  generated  code 
end  help_Event; 
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-  «k1  event  handlers 


Dispatch.Item  —  Subprogram  BODY 


procedure  Dispatch_Item 

( User_Conteat_Ptr :  in  TAE.Tac_WpLEvcnt_Context_Ptr )  is 
—I  NOTES:  (none) 
begin  —  Dispatch.Item 

if  TAE.Tae_Misc.s_equal  ("cancel",  User_Context_Ptr.Parm_NBme)  then 
cancel.Event  (User_Contcxt_Ptr); 

elsif  TAE.Tae_Misc.s_equal  ("browse",  Uscr_Context_Ptr.Parm_N*me)  then 
browse_Event  (User_Context_Ptr); 

elsif  TAE.Tae_Misc.s_equal  ("query",  User_Contcxt_Ptr.Parm_Namc)  then 
query_Evcnt  (User_Contcxt_Pte); 

elsif  TAE.Tae_Misc.s_cqual  ("help",  User_Context_Ptr.Pann_Name)  then 
help_Event  (Uscr_Contcxt_Ptr); 

end  if; 

end  Dispatchjteni: 
end  Panel^mainmenu; 


—  ***  TAE  Plus  Code  Generator  version  V5.1 

-  ***  File:  pan_inapping_s.a 

-  Generated:  Sep  1  21:37:24  1993 

—  •••  Revised  by  Scott  DolgofT 

_  • 

~  *  Panel_m^ing  —Package SPEC 

_  • 


with  TAE; 
with  X_Windows; 
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packafc  PuieLniq)ping  is 


-(PURPOSE: 

—I  This  package  encapsulates  the  TA£  Plus  panel:  mailing 
-I  These  subprograms  enable  panel  initialization,  cieatiai,  destruction, 

-I  and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
-I  using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  proved. 

— ( It  includes  the  Target  and  View  (available  after  inidalizatitm) 

-I  and  the  PaneLId  (available  after  creation). 

-I 

-I  INTIlAlJZA'nON  EXCEPTIONS:  (iwoe) 

—I 

— ( NOTES:  (none) 

-I 

-(REGENERATED: 

-I  The  following  Workbench  operations  will  cause  regeneralicm  of  this  file: 
-I  The  panel's  name  is  changed  (nut  title) 

-(For  panel: 

-I  mapping 
-I 

-I  CHANGE  LOG: 

—I  l-Sep-93  TAE  Generated 


Info :  TAE.Tae_Wpt.Event_Context_Ptr,  —  panel  information 
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-  Subprogram  SPEC 


Initialize_Paitel 


procedure  Initialize.Panel 

(  CoUection_Read  -  TAE  Collection  read  from 

;  in  TAETac_Co.Collection_Ptr );  -  resource  file 

-I  PURPOSE: 

~l  This  procedure  initializes  the  Info.Target  and  Info.  View  fe«  this  panel 
-I 

-I  EXCEPTIONS: 

-I  TAE.UNINniALXZED_PTR  is  raised  if  Collection_Read  not  initialized 
—I  TAE.Tae_Co  J10_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
—I  Collection_Read 
-I 

-I  NOTES:  (none) 


Create_Panel  —  Subprogram  SPEC 


procedure  Create.Panel 

( Panel_State  -  Flags  sent  to  Wpt_NewPanel. 

:  in  TAE.Tae_Wpt.Wpt_Flags 
:=  TAE.Tac_Wpt.WPT_PREFERRED; 

Relative_Window  -  Panel  origin  is  offset  from 

:  in  X_Windows.Window  —  this  X  Window,  Null_Window 

:=  X_WindowsNull_Window  );  --  uses  the  root  window. 

-I  PURPOSE: 

—I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
-I  and  stores  the  panel  Id  in  Info.PanelJd. 

-1 

-I  EXCEPTIONS. 

~l  TAE.UNINrnALIZED_PTR  is  raised  if  the  panel  is  not  initialized 
—I  TAETAE.FAIL  is  raised  if  the  panel  could  not  be  created 
-I 

~l  NOTES:  (none) 
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Connect_Panel 


-  Subprogram  SffiC 


procedure  Connect_Panel 
(  PaneLState 

:  in  TAE.Tae_Wpt.Wpt_Hags 
:=  TAETae_Wpt.WPT_WlEFERRED; 

Relative.Window  -  Panel  origin  is  offset  from 

:  in  X_Windows.Window  —  this  X  WiiKlow.  NulLWindow 

X_Windows^ull_Window );  —  uses  the  root  window. 
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Subprogram  SI^C 


.  Defboy.Panel 


procedure  Destroy_Panel; 

-I  PURPOSE- 

"I  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
~l  associated  panel  object  (not  the  target  and  view). 

-I 

-I  EXCEPTIONS: 

-I  TAETae_Wpt£AD_PANEL_ID  is  raised  if  Info.PaneLId  is  an  invalid  id. 
-I 

-I  NOTES: 

--I  Infb.PaneLId  is  set  to  TAEJ4ULL_PANEL_ID.  and  should  not  referenced 
—I  in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item  --  Subprogram  SPEC 


procedure  Dispatch_Item 

( User_Context_Pir  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt.Event_Context_Ptr );  --  event 


-I  PURPOSE: 

—I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 
-I 

-I  EXCEPTIONS: 

—I  Application-specific 
-I 

—I  NOTES:  (none) 
end  Panel_mapping; 


-  •••  TAE  Plus  Code  Gener^or  version  V5.1 

-  *•*  File:  pan_iiiaininenu  b.a 

-  ***  Generated:  Sep  1  21:37:24  1993 

-  •••  Revised  by :  Dogan  Ozdemir 
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_  • 

'•  •  PaiwLinaiiiinenu  -Package  BODY 

_  * 


with  TAE;  use  TAE; 
with  TexOO: 
with  Global; 
use  Text_IO,  Global; 

-ADDED  _ 

with  C»«RATORJ4ATCH_ROirnNES,  CREAT^_OraUTORJ»ARAMETBILFlLES_PKG: 
use  OPERATOILMATCH_ROirnNES.CREATC_OPERATORJ>ARAMETEILFILES_PKG; 


—  One  "with"  statement  for  each  connected  panel, 
with  PaneI_compsel; 
wift  PaneLkeyword; 


package  body  Panel_mainmenu  is 


NOTES; 

For  each  parameter  that  you  have  defined  to  be  "event-generating”  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  ".Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event.) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenaate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in.  For  example: 

generated  code ... 

-  (+)  ADDED  yourinitials 
your  code ... 

-(-)  ADDED 
more  generated  code ... 


REGENERATED: 

The  following  WorkBench  operations  will  cause  regeneratfon  of  this  file: 

The  panel's  name  is  changed  (not  title) 

For  panel: 
maiiunenu 


-1 


The  following  WorkBench  operations  will  also  cause  regeneratiem; 
An  item  is  deleted 
A  new  item  is  added  to  this  panel 
An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 
An  item's  generates  events  flag  is  changed 
An  item's  valids  changed  (if  item  is  type  string  and  connected) 
An  item's  connection  information  changed 
Fra  the  panel  items: 

cancel,  browse,  query,  help, 
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-ICHANOELOO; 

-I  l-Sq>-93  TAE  Ooierated 


-ADDED 

opentor.file  ;file_type; 

type.fik  :  fUe_type; 

oparatar_list  :  S&ing{1..13);="q)eralQr_list''; 

type.Iist  :  String(1..9):="type_list"; 

Dummy  :  Boolean; 


—  .  Initialize_Panel  —  Subprogram  BODY 


procedure  Initialize.Panel 
( CoUection.Read 

;  in  TAE.Tae_Co.Collection_Plr )  is 

—I  NOTES:  (none) 

begin  —  Initialize_Panel 

Info  ;=  new  TAE.Tae_WptEvent_Context; 

Info.CoUection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  (Info.CoUection,  "mainmenu_v".  Info. View); 
TAE.Tae_Co.Co_Find  (Info.CoUection,  "mainmenu_t",  Info.Target); 

exception 

wh«i  TAE.UNINmAUZED_PTR  => 

Text_IO.Put_Line  ("Panel_mainmenu.Initialize_Panel;  " 

&  "CoUection_Read  not  initialized."); 
raise; 

when  TAE.Tac_Co.NO_SUCH_MEMBER  => 

TcxtJO.Put_Line  ("Panel_mainmenu.Initialize_Panel:  ” 

&  "(View  or  Target)  not  in  CoUection."); 
raise; 

end  Initialize.Panel; 
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Create_P«nel 


Sulq>rograin  BODY 


procedure  Cieete.Panel 
( PaneLSutc 

:  in  TAE.Tae_Wpt.Wpt_Rags 
:=  TARTae_Wpt.WPT_HlEFERRED: 

Rel«tive_Window 
:  in  X_Windows.  Window 
:=  X_Windows  J^ulLWindow )  is 


-INCITES;  (none) 
begin  —  Create_Panel 

if  Info.Panel_Id  =  TaeNull_Panel_Id  then 
TAE.Tae_WptWpt_NewPanel 
( Dummy  => 

Data_Vm  =>  Info.Target, 

View_Vm  =>  Info.  View, 

Relative_Window  =>  Relative_Window, 

User.Context  =>  Info, 

Flags  =>  Panel.State, 

Panel_Id  =>  Info.PanelJd ); 

else 

Text_IO.Put_Line  ("Panel  (mainmenu)  is  already  displayed."); 

end  if; 

exception 

when  TAE.UNIN11 1ALIZED_F  I'k  => 

Text _JO.Put_Linc  (''Panel_mainmenu.Create_Panel;  " 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO.Put_Line  ("Panel_mainmenu.Create_Panel:  " 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel; 
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Cofiiiect_Panel 


-  Subpiognun  BODY 


procedure  Connect.Panel 
(PaneLSute 

:  in  TAE.Tae_Wpt.Wpt_Rags 
:=  TAETae_Wpt.WPT_PREFERRED; 

Relative_Window 
:  in  X_Windows.Window 
;=  X_Windows  JtulLWin<k>w )  is 

-I  NOTES:  (none) 

begin  —  Connect_Panel 

if  Info.Panel_Id  =  Tae^ulI_Pancl_Id  then 
Create_Panel 

( Relative_Window  =>  Relative_Window, 

Panel_Statc  =>  Pancl_Statc ); 
else 

TAE.Tae_WptWpt_SetPanclState  (Info.Panel_Id.  PaneLState); 
end  if; 

exception 

when  TAE.Tae_WptJBAD_STATE  => 

Text_IO.Put_Line  ("Panel_mainmenu.Connect_Panel:  " 

&  "Invalid  panel  state."): 
raise; 

end  Connect_Panel; 
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Destroy.Panel 


Subpiognun  BODY 


procedure  DestroyJPanel  is 
—1  NOTES:  (none) 
begin  --  Destroy.Panel 

TAE.Tae_Wpt.'Wpt_PanclErasc(lnfo.P*nelJld); 

exception 

when  TAE.Tac_WpLBAD_PANEL_ID  => 

Text_IO.Put_Line  ("PaneLmainmenu.Destroy .Panel:  ” 

&  "Info.Panel.Id  is  an  invalid  id."): 
raise; 

when  TAE.Tae_WptERASE_NULL_PANEL  => 

"  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 

"  Trap  this  exception  and  do  nothing. 

null; 

end  Destroy.Pancl; 
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-•  begin  EVENT  HANDLERS 


-  .  cancel_Event  -  Subprogram  SPEC  &  BODY 


procedure  canceLEvent 

( Info ;  in  TAE.Tae_Wpt.Event_Context_Ptr  )  is 


-I  PURPOSE: 

-I  EVENT  HANDLER.  Insert  application  speciRc  information. 

~l 

-I  NOTES:  (none) 

Value :  array  (1..1)  of  String  (1  ..TAE.Tae_Taeconf.STRINGSlZE); 
Count :  TAE.Taeint; 

begin  —  cancel_Event 

"  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  (Info.Parm_Ptr,  Count); 
TextJO.Put  ("Panel  mainmenu,  parm  cancel:  value  =  “); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  (lnfo.Parm_Pli.  1,  Value(l)); 
Text_IO.Put_Line  (Value(l)); 
else 

Text_IO.Put_Line  ("none"); 
end  if; 

—  End  default  generated  code 
-ADDED 

Global.Set_Application_Donc; 

—  Begin  generated  code  for  Connection 

Destroy_Panel; 

-♦  TCL:  Quit 

—  End  generated  code  for  Connection 
end  cancel_Event; 
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taowse_Event 


--  Subprogram  SPEC  &  BODY 


pfoceduie  hrowse.Event 
( Info :  in  TAE.Tae_Wpt.Event_Context_Pir )  is 


--I  PURPOSE: 

-I  EVENT  HANDLER.  Insert  application  specific  information. 

-I 

-I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (l..TAE.Tae_Taeconf.STRINGSIZE); 

Count :  TAE.Taeint; 

-ADDED 
N  :integer:=l; 

begin  —  browse_Event 

—  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  (Info.Pann_Ptr,  Count); 

TextJO.Put  ("Panel  mainmenu,  parm  browse:  value  =  “); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  (Info.Parm.Ptr,  1.  Value(l)); 
Tcxt_IO.Put_Line  (Value(l)); 
ebe 

Text_IO.Put_Line  ("none"); 
end  if; 

—  End  default  generated  code 

—  Begin  generated  code  for  Connection 

-ADDED 

strlen(libraryJ'0; 

if  TAE.Tae_Misc.s_equal  (Valcefl),  'Types")  then  null; 

-ADDED 

system_call(com&"tl  "&libraty(l..N)&"  "&"type_list”); 

Iist_components(type_file,type_list4ile_vec4»um_of_comp); 

TAE.Tae_Wpt.Wpt_SetStiingConstraints( 

Pane!_compsel.Iirfo.Panel_Id,"compser,taeint(num_of_comp),lile_vec); 
Dummy:=TAE.Tae_Wpt.Wpt_Pending; 
qfstem_call(''nn  type_list"); 

Connect_Panel  (TAE.Tae_Wpt.WPT_INVISIBLE); 
Panel_compsel.Connect_Panel  (TAE.Tae_Wpt.WPT_VISIBLE); 

elsif  TAE.Tac_Misc.s_equal  (Value(l),  "Operators")  then  null; 

-ADDED 

system_call(com&"ol  "&library(l.J4)&"  "&"operator_list"); 
list_components(operator_file,operator_list,fUe_vecj>um_of_comp); 
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TAE.T«e_Wpt.Wpt_SetStringCoittlraints( 

PiiidLcompsel.Info.P«neUd,"comp«er',ueint(num_of_comp),file_vec); 
Dummy:=TAE.T8e_Wpt.Wpt_Pending; 
system_call("nn  opcrator_list’’); 

Connect.Panel  (TAE.Tae_Wpt.WPTJNVISIBLE); 
Panel_compsel.Conncct_Pancl(TAE.Tac_Wpt.WPT_VISIBLE); 

end  if; 

-  End  generated  code  for  Connection 
end  teowse_Event; 


query-E''*"* 


—  Subprogram  SPEC  &.  BODY 


pcDcedure  query.Event 

( Info :  in  TAE.Tae_Wpt.Event_Context_Ptr )  is 
--I  PURPOSE: 

—I  EVENT  HANDLER.  Insert  application  specific  information. 

-I 

-I  NOTES:  (none) 

Value :  array  (1..1)  of  String  (l..TAE.Tae_Taeconf.STRINGSIZE); 
Count :  TAE.Taeint; 

-ADDED 

FINAL_MATCHES, 

OPERATOR_SIGNATURE_MATCHES :  FILE_TYre; 

NUM, 

LEN  :  INTEGER; 

NO.MATCH  :  BOOLEAN  :=  TRUE; 

MATCH_FILE_NAME  :  STRING(l..ll)  :=  "final_match"; 

begin  --  query JEvent 

—  Begin  default  generated  code 

TAE.Tac_Vm.Vm_Extraa_Count  (Info.Pann_Ptt,  Count). 
TextJO.Put  ("Panel  mainmenu,  parm  query:  value  =  "); 
if  (fount  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  (Info.Parm_Plr.  1.  Value(l)); 
Text_IO.Put_Line  (Value(l)); 
else 

Text_IO.Put_Line  ("none"); 
end  if; 

—  End  default  generated  code 

—  Begin  generated  code  for  Connection 

if  TAE.Tae_Misc.s_equal  (Value(l),  "Keyword")  then  null; 
Connect.Panel  (TAE.Tae.Wpt.WPTJNVISIBLE); 
Panel_keyword.Connect_Panel  (TAE.Tae_Wpt.Win'_VISIBLE); 

elsif  TAE.Tae_Misc.s_equal  (Value(l),  "PSDL")  then  null; 
Conncct_Panel  (TAE.Tae.Wpt.WPTJNVISIBLE); 
PaneLcompsel.Connect_Panel(TAE.Tac_Wpt.WPT_VISIBLE); 
-ADDED 

if  COMPONENT  JS.OPERATOR  then 

—  get  signature  of  query  operator  component 
systan_call(com2); 

—  get  all  software  base  components  that  match  query 
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—  component  signature 

system_call(com&"cq  Ada  ''&OPERATOR^JlLE_NAME&‘*  qucnr.sig.nutch”); 

—  load  query  operator  component  parameter  miq>ping  data  structures 
THE_STATUS  :=  QUERY.COMPONENT; 

CREATE_OPERATOR_PARAMETER_FILES(THE_STATUS.  QC_IN_PARAMS.  QCJN.COUNT, 
QC_OUT_PARAMS.  QC_OUT_COUNT.  GEN.PARAMS.  GEN_CX)UNT.  H  AS.GENERICS, 
QC.NAME); 

—  save  query  operator  component  psdl  Hies 

system_call("cp  "&Global.OPERATOR_FILE_NAME&”  svopspec.txt"); 
system_call("cp  "&Global.PROTOTYPE_FILE_JIAME&"  svprotspec.txt"); 

OreN(OPERATOR_SIGNATURE_MATCHES.  MODE  =>  IN.FILE, 

NAME  =>  "query _sig_match"); 

CREATE(FINAL_MATCHES,  MODE  =>  OUT_FILE. 

NAME  =>  MATCH_FILE_NAME); 

—  continue  to  filter  the  matched  components 

whUe  not  END_OF_FILE(OPERATOR^SIGNATURE_MATCHES)  loop 
—  get  a  candidate  component 

GET_LINE(OPERATOR_SIGNA'nJRE_MATCHES.  COMPONENT,  LEN); 


—  get  the  component's  name 
strlen(COMPONENT.  LEN); 

—  get  the  psdl  file  associated  with  that  name 

system_c«Jl(com&"cv  Ada  "&COMPONENT(l..LEN)&"  outpsdl  outspec  outbody"); 

—  copy  the  software  base  component  psdl  file  into  the 

—  appropriate  files 

system_call("cp  outpsdl  "&OPERATOR_FILE_NAME); 
system_call("cp  outpsdl  "&PROTOTYPE_FILE_NAME); 

--  load  software  base  operator  component  parameter  maq>ping 

—  data  structures 

THE.STATUS  :=  SOFTWARE_BASE_COMPONENT; 
CREATE_OPERATOR_PARAMETER_FILES( 

THE_STATUS.  SBC_IN_PARAMS.  SBC_IN_COUNT. 

SBC_OUT_PARAMS,  SBC_OUT_COUNT.  GEN_PARAMS,  GEN_COUNT. 
HAS_GENERICS,SBC_NAME); 

if  HAS_GENERICS  then 


-•  sec  if  an  instantiation  of  the  software  component  by  the 
"  query  component  is  possible 

FIND_INSTANTIATION(QC_IN_PARAMS.  QC_OUT_PARAMS,  SBC_IN_PARAMS, 
SBC_OUT_PARAMS,  GEN_PARAMS,  NO_MATCH); 


else 


—  no  goioics  in  software  base  component  so  check  to  ensure 

—  both  components  match  at  the  Array  component  level  (i.e. 

—  array  element  and  index)  if  the  components  have  parameters 


389 


-  of  type  Anay 

MATCH_ARRAYS(QC  JN.PARAMS,  QC_OUT_PARAMS.  SBC  JNJ>ARAMS. 
SBC_OUT_PARAMS,  NO_MATCH); 

end  if; 


ifnotNO_MATCH  then 

"  software  base  component  successfully  passed  this  filter 
"  so  add  it  to  “final.match"  file 
PUT_UNE(FINAL_MATCHES.  COMPONENT): 

end  if; 

end  loop; 

CLOSE(OPERATOR_SIGNATURE_MATCHES); 

CLOSE(FINAL_MATCHES); 

—  restore  query  operator  component  psdi  files 
system_call("cp  svopspec.txt  "&OPERATOR_FILE_NAME); 
system_call("cp  svprotspec.txt  ”&PROTOTYPE_FILE_NAME); 

—  remove  files  that  are  no  longer  needed 
8ystem_call(''rm  svopspec.txt"); 
syslem_call("rm  svprotspec.txt"): 
system_call(”rm  qucty_sig_match''); 
system.callC'rm  ouqjsdl"); 
system_call("nn  outspec"); 
system_call("rm  outbody"); 

else 

—  get  signature  of  query  type  component 
system_call(com  3); 

—  get  all  software  base  components  that  match  query 

—  component  signature 

system_call(com&"cq  Ada  "&TYPE_FILE_NAME&"  "&MATCH_FILE_NAME); 


end  if; 


-  load  die  component  selection  TAE  display  item  with 
"  die  components  listed  in  "finaLmatch" 

list_components(r  i  ^  ALJUATCHES,  MATCH_FI1^_NAME.  FILE.VEC,  NUM); 
TAE.Tae_WptWpi_SetStringConstraints( 
iRanel_compsel.Info.Panel_Id,"compser‘,taeint(NUM)JIl£_VEC); 
Dummy:=TAE.Tae_WptWpt_Pending; 


—  remove  files  that  are  no  longer  needed 
system_call("xm  "&MATCH_FILE_NAME); 

end  if; 
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-  find  generated  code  fOT  Connection 
end  query JSvent; 


h«lp_E^cnt 


—  Subprogram  SPEC  &.  BODY 


procedure  help_Event 

( Info :  in  TAE.Tae_Wpt.Event_Context_Ptr )  is 


--I  PURPOSE; 

-I  EVENT  HANDLER.  Insert  application  q>ecific  infomation. 

-I 

-INCITES:  (none) 

Value :  array  (1..1)  of  String  (l..TAE.Tae_Taeconf.STRINGSIZE): 
Count ;  TAE-Taeint; 

begin  -  hdp_Event 

"  Begin  default  generated  code 

TAETae_Vm.Vm_Extract_Count  (Jnfo.Parm^Ptr,  Count); 
TextJO.Put  ("Panel  mainmenu,  parm  help;  value  =  "); 
if  Count  >  0  then 

TAETae_Vm.Vm_Extnict_SVAL  (Iiifo.Parm_Ptr.  1.  VaJue(l)): 
TextJO.Put_Line  (Value(l)); 
else 

Text_IO.Put_Line  ("none"); 
end  if; 

-•  End  default  generated  code 
end  help.Event; 
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-  end  EVENT  HANDLERS 


--  .  Dispatch  Jtem  -- Subprogram  BODY 


procedure  Dispatch.Item 

(  Us«_Context_Ptr ;  in  TAE.Tae_WptEvent_Context_Plr  )  is 
-I  NOTES:  (none) 
begin  --  Dispatch.Item 

if  TAE.Tae_Misc.s_cqual  ("cancer,  User_Context_Ptr.Paim_NMne)  then 
cancel.Event  (User_Context_Plr); 

elsif  TAE.Tae_Misc.s_equal  ("browse",  User_Context_Ptr.PaTm_Name)  then 
hrowse_Event  (lIser_Context_Ptr); 

elsif  TAE.Tae_Misc.s_equal  ("query",  User_Context_Ptr.Parm_Name)  then 
query_Event  (User_Context_Ptr); 

elsif  TAE.Tae_Misc.s_equal  ("help",  User_Context_Ptr.Pann_Name)  then 
help_Event  (User_Context_Plr); 

end  if; 

end  Dispatch_Item; 
end  Panel_mainmenu; 
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